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ABSTRACT 


The  purpose  of  this  work  was  to  test  variational  princ¬ 
iples  which  have  been  claimed  to  be  useful  for  obtaining 
wavef unc t i ons  of  ground  states  and  excited  states.  To  this 
end  a  series  of  computer  routines  has  been  developed  to 
test  these  methods  for  any  closed- or  open-  shell  atonic 
state  for  up  to  ten  electrons  occupying  s,  p-  or  d-orbitals. 
The  approximate  wavef unction  consists  of  a  single  config¬ 
uration.  This  single  configuration  is  a  fully  symmetrized 
sum  of  slators.  Each  slator  in  its  turn  is  expanded  as  a 
sum  of  Slater-type  orbital  functions.  To  obtain  a  self- 
consistent  wavefunction  from  a  starting  wavef unc t i on 
the  approach  of  Hinze  and  Roothaan  to  compute  corrections 
to  the  starting  vector  is  used.  The  SCF -wavef unct i ons  are 
used  to  compute  some  expectation  values  related  to  physical 
proper  t i es . 

The  variational  principles  involve  the  calculation  of 
the  expectation  value  <H  >  which  turns  out  to  be  a  computer¬ 
time  consuming  process.  The  results  show  that  the  comput¬ 
ation  of  this  expectation  value  becomes  impractical 
for  larger  electronic  systems. 

The  results  furthermore  confirm  that  the  minimization 
of  delta  and  delta-tilde  leads  to  wavef unc t i ons  which  are 
not  useful  in  computing  any  physical  properties  of  the 
state  under  cons  i  derat  i  on .  The  and  <£“Va  methods  lead  to 


nearly  identical  wavef unc t i ons .  These  wavef unc t i ons  show 
the  maximum  overlap  with  the  "true"  wavefunction  in  cases 
where  correlation  is  of  minor  importance.  if  the  cor¬ 
relation  is  of  major  importance  then  the  theoretically 
expected  result  is  not  obtained.  If  this  finding  is 
found  to  hold  true  in  general  then  one  might  employ  this 
method  in  testing  how  well  a  certain  wavefunction 
incorporates  correlation  effects.  It  is  hoped  that  the 
programmes  written  and  the  results  obtained  might  serve  as 
a  basis  for  exploring  further  the  nature  of  excited  states 
and  ultimately  might  lead  to  to  the  prediction  of  physical 
properties  of  excited  and  ground  states. 
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I  .  THEORY. 

One  of  the  fundamental  theorems  of  quantum  mechanics 
states  that  each  conservative  system,  i.e.  a  system  whose 
energy  is  a  constant  of  the  motion,  can  be  represented  by 
the  time  independent  Schroedinger  Equation 

H*t  =  E?  (1-1) 

Although  the  wavefunction  Y  is  not  a  physical  observ¬ 
able,  it  can  be  used  to  derive  the  physical  observables  of 
the  system  by  the  relation 

<A>  dvJ/0V*tdv3  (1-2) 

A  A 

where  <A>  is  the  mean  value  of  the  linear  operator  A  which 
is  associated  with  the  dynamical  variable  a  according  to 
the  postulates  of  quantum  mechanics.  This  property  of  the 
wavefunction  has  made  its  determination  one  of  the  prime 
problems  in  theoretical  physics  and  chemistry. 

The  solution  of  the  Schroedinger  Equation  (1-1)  in 
analytical  form  is  possible  only  In  a  few  cases  that  can  be 
separated  into  one-dimensional  problems.  For  any  more 
complicated  system  one  has  to  resort  to  approximate 
methods . 

The  two  most  important  methods  of  approximation  are 


"  '  "  '  ’  I  <  > 

*  ’  •  i;  t 

.  •"> 


2 


the  perturbat ional  and  the  variational  treatments.  In 
perturbation  theory  one  assumes  that  the  Hamiltonian  of  the 
system  can  be  separated  into  two  parts 

H  =  H°  +  H1  (1-3) 

For  H°  a  solution  of  the  Schroedinger  Equation  Is  known/  H 1 
adds  a  small  perturbation. 

The  variational  treatment  is  derived  from  the  cal¬ 
culus  of  variations  which  states  in  a  theorem/  that  the 
necessary  condition  for  a  function  f  with  continuous  first 
partial  derivatives  to  attain  a  stationary  value  is  that 
the  first  variation  cTf  vanishes  for  arbitrary  changes  </x«; 
in  the  independent  variables  x^.  The  variational  treatment 
is  more  general  since  the  solution  of  the  Schroedinger 
Equation  need  not  be  known  for  part  of  the  Hamiltonian. 

Any  physical  system  can  exist  in  several  states/  a  so- 
called  ground  state  where  the  system  has  attained  the 
lowest  total  energy/  and  so-called  excited  states  where 
this  is  not  the  case.  Excited  states  play  an  important  role 
in  physics  and  chemistry/  since  their  observation  has 
furnished  us  with  a  wealth  of  information  about  physical 
systems.  For  example  much  of  the  knowledge  of  such 
seemingly  unrelated  things  as  the  composition  of  stars  and 
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the  structure  of  organic  molecules  has  been  obtained  by 
studying  excited  states. 


Exc i ted 

state 

wavefunct 1 ons 

cou  1  d 

in  principle 

be 

obtained  by 

varying 

a  trial  funct I  on 

<|)  under 

the 

cons t  ra i n t 

that  It 

is  orthogonal 

to  al  1 

wavefunct  ions 

of 

states  of  the  same  symmetry  which  lie  beneath  It. 
(By  a  theorem  of  group  theory  the  function  is  auto¬ 
matically  orthogonal  to  all  wavef unct Ions  of  states  which 
belong  to  a  different  symmetry.)  But  this  is  generally 
impractical  since  the  theorem  upon  which  the  above 
method  is  based  holds  rigorously  only  if  the  wavefunct Ions 
of  the  lower  states  are  exact. 

Excited  state  wavef unc t i ons  could  also  be  obtained  by 
using  a  theorem  of  MacDonald  (32),  applicable  to  the  case 
where  the  trial  wavefunction  is  a  sum  of  linearly 
independent  functions,  i.e.  4>  =  Ic;E.  The  minimization  of 
the  expectation  value  <  4>  i  h  i  cj?  >  leads  to  an  eigenvalue 
problem  He  =  ESc  .  The  theorem  states  that  the  eigenvalues 

<s>  V  ^  ^  Af 

EX,EX,ES  ,  etc.  are  upper  bounds  to  the  true  energies  W1,WZ, 
W, ,  etc..  Therefore  the  eigenvectors  c1,ci,  c3 ,  etc.  can  be 
regarded  as  approximations  to  excited  state  wavef unt i ons . 

Considerable  effort  has  been  directed  towards 
obtaining  wavef unc t I ons  of  excited  states  wi thout  imposing 
the  above  mentioned  constraint. 

Of  the  nonva r i a t i ona 1  approaches  to  determine 


. 

i 

' '  i  ••  ■ 

* 


4 


lower  bounds  of  eigenvalues  the  method  of  Lowdln  (8)/  which 
Is  based  upon  perturbation  theory,  has  received  a  great 
deal  of  attention.  The  method  applied  to  atoms  treats  the 
term  H1  =21  l<j(l/r^)  of  the  Hamiltonian  as  the  perturb¬ 
ation.  Mot  only  Is  it  doubtful  that  for  heavier  atoms  this 
term  is  small  enough  to  be  treated  as  a  perturbation,  but 
also  the  computation  of  the  perturbed  wavef unct Ions 
involves  the  calculation  of  the  expectation  value  of  the 
operator  (H  )  ,  which  for  any  atom  with  more  electrons 
than  Helium  leads  to  presently  Intractable  Integrals,  e.g. 
for  Li 

A  different  method  for  obtaining  bounds,  based  upon 
the  Ray 1 e I gh-R I t z  variational  method,  was  suggested  in  1934 
b  y  We  I  n  s  t  e  i  n  (  6  )  . 

If  one  considers  a  function 

£  ’  =  <4>l  (H-V)1  |<j»  (1-4) 

i  =  <4>i<j», 

V  an  arbitrary  constant 

then  one  can  show  that  for  the  true  eigenvalue  WK  of  H 
lying  closest  to  V  the  relationship 


. 

.  '  • 

■ 


5 


V  ♦ft»wk>,  V  - 

holds  if  WK  Is  the  only  eigenvalue  within  the  range.  That  V 
which  minimizes  a'  is  V=E  where  E  =  <4)  |  H  |<£>>,  which  leads  to 

E  +  >  WK  >,  E  -  Ia 

Different  ways  of  obtaining  bounds  on  eigenvalues  have 
been  proposed  by  Temple  (24)  and  Kato  (25)  and  they  are 
mentioned  here  for  completeness  only,  since  they  have  been 
investigated  as  a  possible  source  of  excited  state  wave- 
functions  by  Messmer  and  Birss  (10)  and  have  been  found  un¬ 
sat  i  sfac tor y . 

Fraga  and  3irss  (9)  have  used  Weinstein's  bounds  to 
suggest  a  variational  procedure  which  could  be  used  to 
obtain  wavef unct i ons  of  excited  states. 

Messmer  (1,10)  employed  an  entirely  different 
approach  to  obtain  wavef unct i ons .  Instead  of  using  the 
bounds  of  eigenvalues  as  a  criterion  for  the  "goodness"  of 
a  wavef unct i on,  he  investigated  the  quantity: 

aK  =  <(|)|Y)c>/  |(j)>  trial  wavef  unct  i  on; 

I Yk>  exact  wavefunction 


This  quantity  describes  the  total  overlap  of  the  true  with 
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the  trial  wavef unct i on .  It  can  be  shown  that  the  minimiz¬ 
ation  of  A  does  not  at  all  give  the  best  approximation  to 
a  \  that  can  be  obtained  from  a  given  trial  wavef unct i on, 
if  one  uses  the  criterion  of  maximum  aK.  Messmer  (1,10) 
then  developed  a  variational  scheme  for  ground  and  excited 
states  which  follows  a  reasoning  of  the  goodness  of  approx¬ 
imate  wavef unct i ons  in  the  ground  state  first  given  by 
James  and  Coolidge  (11).  Since  the  work  done  in  this  thesis 
is  based  essentially  upon  this  scheme  the  derivation  given 
by  Messmer  (10)  will  be  repeated  in  its  main  parts. 

Let  <j)  be  an  approximate  normalized  wavefunction  and 
E~  <4>  |  H  |  c|>  >  Its  associated  energy.  Also  let 

(j>  =  X  i  {a-Y-j  =  akYk+  Xi^k{a-Ttj  (1-6) 

then 

[acVJ  (1-7) 

will  give  the  deviation  of  cj>  from  the  exact  function  .  A 
deviation  function  can  then  be  defined, 

4>x  »  (l-aj)-1'*  (4>-ak\)  (1-3) 

where  a  *  <<\l*r>.  Hence  one  may  write 

4> ■  av\  +  a*4>* 


(1-9) 


»  , 
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where  a %  ■  (1  -  a*)  4  measures  the  amount  of  the  deviation 

function  c|>  %  which  appears  in  cj)  .  As  criteria  of  the  in¬ 
accuracy  of  cj)  there  are  : 

Qz  the  root-mean-square  error  in  c f> 

£  ,  the  energy  error 

E  *  E  -  WK 

and  ,  the  root-mean-square  local 
>TS=  <cj)|  ( H-E  )  2  |cf)>  1/:L. 

One  may  also  define  the  quantities: 

E*  =  <4vihi4v>  v  vw* 

A  «  <4>  J(H-E)1  |  4>  >.  (1-13) 

I f  the  i nequa 1 i ty 

0  4  <4^1  rCH-EJ-CE^-E)]3  l4>t>  (1-14) 

is  considered  and  the  integral  is  expanded  in  terms  of  the 
above  defined  quantities/  one  finds 

0  4  <4>„|H1|(J)i>  -  28^  E  +  E1  -  Ei  +  lE^E  -  E1,  (1-15) 


(1-10) 

(1-11) 

energy  deviation 
(1-12) 


-  ' 


- 
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thus 

4vlHil4>  >  -  2E  E  +  Ea  ^  El  -  2E  E  +  E 2 .  ( 1- 16 ) 

XX  ^  *  y 


But  the  left  hand  side  is  merely  Ax;  hence 

AxXE  ,  -  E)*. 

(1-17) 

From  the  definition  of  e  and  £  given  above,  it  can  be 
shown  that 

(E^-E)2  =  (£z-£)2;  hence  Ax  >(£,.-  £  )5 
Thus  one  may  define  a  quantity  K  2, 

Kk  =  {A/(er  -6)a  i  >/  1.  (1-18) 

Now  substituting  eqn  (1-9)  into  eqns  (1-10,1-11,1-12)  it 


fol lows  that 

Q1  =  2{l-aJ  =  2  [l- ( 1-a a )  L/a  J 

(1-19) 

£  =  a^e* 

(1-20) 

A  =  g3  +  a;(A,-£a) 

(1-21) 

Eliminating  ax  between  eqn  Cl-19)  and  eqn  (1-20) 

one  f i nds 

Q1  -  ( 1/4 )  Q1*  -  a*  =  E/U 

(1-22) 

-  .  - 


J  ••  r  ' .  •  - 


. 


o 


or  if  9  is  a  fairly  good  approximation  to  V*  /  then 

Q*  =  i/ex  (1-23) 

Eliminating  ax  between  eqn  (1-20)  and  eqn  (1-21)  one 
obtains 

A  =  E  +  (1-24) 

and  assuming  again  that  (^  ? s  a  fairly  good  approx ima 1 1  on  of 
y^,  i  t  fol  1  ows  that 

4/A^=  £/£*  or  A  -  e^K*.  u-25) 

Using  eqns  (1-23)  and  (1-25)  one  obtains 

Qa  =  (£aM)K\  (1-26) 

Since  Ka  >  1,  one  can  approximately  assume  it  to  be 

constant  and  equal  to  1  and  a  minimization  of  Q3,  will  then 

involve  the  minimization  of  £aM. 

A  danger  lies  in  the  fact  that  Ka  could  possess  a  cusp 
at  the  point  of  maximum  overlap  of  (£wlth  .  But  a  study 
of  the  first  ten  excited  states  of  hydrogen  (12)  has  shown 


: 
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that  this  is  not  the  case,  but  that  K1  is  a  slowly 
varying  function  in  the  region  where  <$-X- 

In  a  subsequent  paper  Choi,  Lebeda  and  Messmer  (2) 
extended  the  above  outlined  method  and  gave  an  exact  formul¬ 
ation. 

Defining  the  quantities 


A  =  <4l  (h-wk  f  |<j» 

»  <4>XI(H-Wk  f  |(|lr>  (1-2  7) 

it  follows  that 

A  /Ax  -  <(j)|(H-Wfc)a  kj»/«J>t|(H-Wk>*  |<j)x> 

=■  £Am  I  a  J  *  (W„-W„  )s  a  / 

iZmk  laja  (W1B-Wk)»3  =  aj  (1-28) 

and  hence  one  obtains 

8  Hr  =  &/A%  (1-29) 

and  therefore 

1  =  (<f/ex)*(A  JA).  (1-30) 


Using  the  above  relationships  one  may  write 


<;'(-!){ 

- 
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a\  =  £/£*  -  ( £*74 > *(£*/£■*). 

Now  defining  K  *  At/ £  one  may  write 
a*  =  (£*M)  Ka 

which  is  analogous  to  eqn  (1-26)  but  is  an  exact 
To  make  the  connection  between  eqns  (1-26)  and  (1 
necessary  to  assume  that 

A  /Ax  =  A/Ax 

which  is  true  only  in  the  limit 

lim  (A M*)  =  (A/A*);  lim  E  s  Wk 


then  using  eqns  (1-31)  and  (1-33)  one  may  write 


a*  =  Ul/A)<.&x/S*)  =  (£*MHV[Et-Ef) 

or 

a  *  =  UZ/A)KZ 


(1-31) 

(1-32) 

relation. 
-32)  it  is 

(1-33) 

(1-34) 

(1-35) 

(1-36) 


where 


eqns  (1-36)  and  (1-26)  are  the  same.  Another  advant- 
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age  of  eqn  (1-32)  can  be  seen  from  the  following  consider 
ations.  If  the  inequality 


0  6  <4>xl  [(H-WK)-(E-WK)1  1  |<j>x> 


(1-37) 


is  written  in  terms  of  the  previously  defined  quantities 
one  obtains 


(1-38) 

or 

1  ^  K*  =  £>,/£*.  (1-39) 

Using  the  above  relation  one  can  see  from  eqn  (1-32) 
a*  =  l-ak  ^  £*M.  (1-40) 


This  lower  bound  was  first  derived  by  James  and  Coolidge 

(11). 

Let  us  define  a  as  the  eigenvalue  closest  to  WK  ; 
since  the  case  of  degenerate  eigenvalues  is  not  considered 
here,  VT  ±  Wk  then 

=  <4>xi<H-wk)1  i4>x> 


=  a^  Lm*k  |a  J1  (W^-WJ1 


I  >  .  - 
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and  therefore 
A_  >/ 


“*Xm*k  |  am| z  (W^-Wk  )a  =*  (W'k-WK) 


or 

A*  >/  (W^-WJ2  (1-41) 

From  eqns  (1-28)  and  (1-41)  It  follows  that 

a*=AMx  ^  A/(vr-Wk)z.  (1-42) 

Combining  this  result  with  eqn  (1-40)  we  obtain 

£’/A  4  a‘  ^  2/(W^-Wr)1.  (1-43) 

From  the  foregoing  discussion  one  can  derive  variat¬ 
ional  schemes  which  will  have  different  properties  and  will 
approximate  the  wavefunction  in  different  parts  of  the 
configuration  space. 

1.  MINIMIZATION  OF  E  =  <c|)|H|<j)>. 

In  general  this  can  only  be  done/  as  outlined  in  the 
beginning,  for  the  lowest  states  of  a  given  symmetry.  As 
discussed  by  Goodisman  (13)/  James  and  Coolidge  (11)/  this 
method  will  minimize  "long  range  errors". 


TO 
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2.  MINIMIZATION  OF  A  OR  L 

This  method  can  be  used  for  excited  states  as  well  as 
ground  states.  In  minimizing  A  or  a  the  "local  energy 
error"  is  minimized  (11).  The  expressions  "long  range"  and 
"short  range"  errors/  which  have  been  adapted  from  James 
and  Coolidge  (11)/  warrant  some  explanation.  If  one 
considers  the  expectation  values  to  be  minimized/  e.g. 

<H>  =  <cj>|H|4»  and  A  3  <c|>|  ( H-E  )*  |cj» 
and  looks  at  the  expanded  form  of  the  atomic  Hamiltonian 
( see  chapter  I  I )  then 

<H>  =  <4l[Ii  (-1/2  )V/-z/r‘]  + Z  i  <j  [  1/r‘J  ]  l<f>> 

<HZ>  =  <tj>  |[  X  i  ( -1/ 2  )  V*  -Z/ r  ‘J1 

+  iKjCf  (-l/2)V,1-z/ri  ]*[(-l/2)V,?-Z/rj ]j 

+  I  i<j<k{[  (-l/2)<7ii-Z/ri]*[l/rikl+Ll/r‘J>Ll/rj,‘]i 

+  1  i  <j  <k<l  t\.  1/r  il/rkC]  }  l4». 

Intuitively  one  can  see  that  in  the  expression  for  Zi  an 
error  in  the  expectation  value  of  <l/r'LZ>  will  contribute 
much  more  than  is  the  case  for  <H>.  Since  <l/ri;L>  will  be 
large  when  the  electrons  are  close  together  ("short  range") 


:  : 
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and  small  when  they  are  far  apart  ("long  range"),  the 
wavef unct i ons  obtained  by  the  two  different  methods  will 
therefore  reflect  this  relative  importance  of  <l/riX>. 
Thus,  by  minimizing  E,  A  or  A  ,  a  wavefunction  is  obtained 
which  has  the  minimum  error  in  certain  regions  of  config¬ 
uration  space,  rather  than  the  minimum  error  over  the  whole 
of  configuration  space. 

3.  MINIMIZATION  OF  £l/A  OR  £*/A. 

These  methods  are  suitable  for  ground  states  and 
excited  states.  Both  methods  will  provide  wavef unct i ons 
which  show  the  best  overall  convergence  to  the  true  wave- 
function  in  all  parts  of  configuration  space.  In  the  £VA 
minimization,  one  has  also  to  insure  that  A/(W.  -W') 

K  ^ 

remains  "reasonably"  small  to  guarantee  that  cj>  approaches 
^  in  a  least  mean-square  sense.  The  smallness  of  A/(WK  - 
W')a  is  of  great  concern  and  it  has  to  be  decided  from 
particular  case  to  particular  case  if  this  criterion  is  met. 
In  this  work  all  methods  are  used  to  approximate  various 
wavef unct i ons  of  atoms  of  the  first  row  of  the  periodic 
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II.  METHODS. 

The  objective  of  this  work  is  to  find  wavef unct i ons 
of  atoms  by  minimizing  the  following  quantities: 


1) 

<H> 

2) 

<  ( H  -  E  )* 

> 

3) 

<(H-Ww) 

x> 

4) 

<H-wk>z 

/<(H-WJX> 

5) 

<H-W  >x 

K 

/<(H-E)1  > 

Under  variation  all  of  these  methods  lead  to  the  same 
type  of  equation 

cf  <H>  +  wcT<Hi>  =  0  (2-1) 

w  1 1  h  : 

1)  w  =  0 

2)  w  =  -1/2  E 

3)  w  =  -1/2Wk 

4)  w  =  -£/2(A+WK£) 

5)  w  *  -6/2U  +  E6) 

For  example: 

0  =  cf(  £  V& )  = 

0  =  2£  Acfe  -  fe*cT{<H,’>-2Wll<H>+W*J 

=  (2i/€)cf<H>-  cT<H2>  +  2WrcT<H> 

*  cf<H>  {(2A+2WR£)/e3r  -  cf<Hx> 

=>  cf<H>  +  { -e/2(A+wKe)}ckHz> 

Therefore  the  problem  reduces  to  finding  expressions 
for  cf<H>  and  cT<Ha>  and  combining  them  in  a  suitable 
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fashion. 

The  non  re  1  a t i v i s 1 1 c  Hamiltonian  in  atomic  units  (unit 
of  length  fiA  /meex  =  0 . 52917*10  cm,  unit  of  energy  ea /aD  3 
27.210  eV,  fi!,meses,l  a.u.)  Is  given  by 

H  =  T  i  [  (-l/2)V.i  -  Z  /  r 1  j  +  2T  i  <  j  £  1/  r  tj]  (2-2) 

In  terms  of  1-  and  2-electron  operators  this  is 
rewr I tten  as 

H  =  T.]  £  h  *' j  +  ^!<j  { 1/r‘J  }  (2-3) 

From  this  one  obtains  in  a  straightforward  manner  the 
expression  for  the  squared  Hamiltonian,  ordered  in  1— , 2— , 3— , 
and  4-electron  contributions: 

H1  =  M  [h-)  (2-4) 

+  ZTi<j  {  2h‘M+h‘  (l/r^  )  +  (l/r*i  )h‘  +(l/r  V  )J3 
+  ZTi<j<k  2{h;(l/rik)+hi(l/rlk)  +  hk(l/r';J) 

+  ( 1/  r  LJ  )  ( 1/ rjk  )  +  ( 1/r  :k)  ( l/rjl1  )  +  ( 1/r  ‘J  )  ( 1/r  ‘  ‘  )} 

+  li<j<k<,  2  f(l/r  t'j)(l/r1,e)  +  (l/r,;l,)(l/ri*  )*(l/r‘e)(l/rJ“)} 

Substituting  the  expression  for  <H>  and  <H*>  obtained 
from  the  orbital  approximation  into  (2-1)  leads  to  the  very 
well  known  formalism  of  the  Self  Consistent  Field  (SCF) 
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theory  (15)/  which  is  dealt  with  In  chapter  III. 

The  only  real  problem  which  had  to  be  solved  was  the 
formulation  of  the  <Hi>-express i on/  since  it  contains  3- 
and  4-electron  parts/  the  contributions  of  which  had  not 
been  fully  dealt  with  in  the  literature.  Fraga  and  Birss 
(9)  give  a  general  expression  for  A,  but  they  do  not  state 
how  the  different  coefficients  they  introduce  in  this 
expression  can  be  obtained. 

Since  it  was  intended  to  write  a  program  of  general 
applicability  and  no  obvious  way  could  be  seen  to  find 
expressions  for  these  coefficients  in  the  general  case/  a 
different  route  was  followed. 

The  expression  for  the  expectation  values  of  any 
operator  0  is  given  by  <C^>|  0  |c/>> .  The  wavefunction  is 
expanded  as  a  sum  of  slators  (s1ator=Slater  determinant)/ 
such  that  this  sum  is  an  eigenfunction  of  the  orbital 
angular  momentum  operator  La  and  the  spin  angular  momentum 
operator  S a.  Therefore: 


(2-5) 


and  the  expectation  value  is  rewritten  as 


<0> 


(2-6) 


. 
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The  evaluation  of  the  expression  <DJ|0|DJ>  for  1-  and 
2-electron  operators  has  been  extensively  dealt  with  in  the 
literature  (e.g.16).  The  evaluation  of  the  3-  and  4-electron 
parts  is  more  complex  (see  appendix  I),  but  can  be  coded 
for  an  electronic  computer.  To  find  the  coefficients  a7  in 
eqn(2-l)/  a  method  first  suggested  by  Harris  and  Schaeffer 
(17)  has  been  used  (appendix  III). 

The  expression  to  be  varied  can  be  expressed  as 


<0>  «  (21  +  1)”1  (2s  +  l)  '  L  s£ms?/-s  l^ml^-1 
<(|}(ml  ;ms  )  |  0  |(j)(ml  ;ms )  > 


(2-7) 


or 


(2-8) 


which  give  the  same  expectation  value. 

Imposing  the  equivalence  restriction  should  assure 
that  expression  (2-8)  and  (2-9)  yield  the  same  wavef unct i on . 
This  has  found  to  be  the  case  for  Be  Is*  2s  2p  jP  and  Be 
Is*  2p*  *D  and  since  the  expression  (2-8)  reduces 
considerably  the  amount  of  computation,  all  expressions  to 
be  varied  have  been  expressed  for  the  highest  ml-  and 
ms-value  only. 

As  is  well  known  (15,18,19)  the  matrix  of  the 
Lagrangian  multipliers  in  an  open  shell  case  cannot  be 
brought  into  diagonal  form  by  a  suitable  unitary  trans- 
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formation.  10  remove  this  difficulty/  various  forms  of 
coupling  operators  have  been  introduced  (15/18/19). 

A  different  approach  has  been  chosen  by  Hinze  and 
Roothaan  (21)/  where  in  each  iterative  step  a  correction  to 
the  Fock  matrices  is  computed.  Preliminary  studies 
showed  that  the  formalism  of  Hinze  and  Roothaan  was 
numerically  more  stable  and  converged  faster  than  the 
coupling  operator  method.  Therefore  this  method  was  chosen 
in  preference  over  the  coupling  operator  method.  The 
extension  of  the  H 1 nze-Roothaan  formalism  to  include  3-  and 
4-electron  operators  is  dealt  with  in  appendix  IV. 

To  conclude  this  chapter  it  is  appropriate  to 
consider  a  more  mundane  aspect:  the  economics  of  a  computat¬ 
ional  process  involving  <HX>  variation  using  the  Hinze- 
Roothaan  formalism.  If  one  employs  the  Roothaan-expans 1  on 
method  (15)  to  approximate  wavef unc t i ons,  then  the 
computation  of  the  3-  and  4-electron  operator  matrices 
requires  summations  of  the  order  n 6  and  n *0  where  n  is  the 
number  of  basis  functions  employed. 

The  number  of  these  summations  could  in  principle  be 
reduced  by  computing  only  those  matrix  elements  that  cannot 
be  obtained  by  an  exchange  of  indices  from  an  already 
computed  matrix  element.  But  this  proves  in  general  to  be 
very  difficult  (see  appendix  II)  and  therefore  the  maximum 
number  of  summations  must  usually  be  carried  out.  Since  the 
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correction  matrices  In  the  H i nze-Roothaan  formalism  require 
at  least  the  same  amount  of  computation  as  the  Fock 
matrices/  whereas  the  coupling  operators  can  be  computed 
by  combining  the  Fock  matrices  (a  relatively  short  and  fast 
process)/  it  might  be  worthwhile  to  trade  the  fewer 
iterations  of  the  H i nze-Roothaan  method  for  more/  but 
faster  iterations  employing  the  coupling  operator  method. 
Since  this  work  was  not  concerned  with  a  mass  production  of 
wavef unct ions/  but  rather  with  the  exploration  of  various 
variational  schemes/  no  attempt  has  been  made  to  shorten 
the  computational  process  to  its  lowest  limit. 
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Ml.  the  mathematical  development 

The  wavef  unct  i  on  Yof  an  atomic  state  with  N  electrons 
of  multiplicity  Js+*L  is  written  as  a  linear  combination 
of  slators  (to  facilitate  the  understanding  of  the 
following  development  an  explicit  example  is  given  in 
appendix  V): 

y (2s+l: 1 )  *  I  a1  DJ  (3-1) 

i 

where 

Dr  »  A  TT  4>(l  ;j )  (3-2) 

j  =  l 

and 

( I ; j )  =  n J  1*  ml*  ms j  (3-3) 

expresses  that  the  orbital  (p(l;j)  is  the  j-th  orbital  In 
the  slator  D1  with  the  associated  quantum  numbers  n 1  1J  mlj 
ms  ?  . 

j 

The  ant i symmet r i zer  A  is  given  by 

A  =  (N!  )“1,a  I  (-l)15  P  (3-4) 

P 

Pisa  permutation  operator  belonging  to  $n  (n=N)  and  (-1)^ 
is  its  associated  parity.  The  summation  runs  over  all  the 
permutations  of  the  group  Sn.  Sn  Is  the  symmetric  group  of 
order  n  (for  more  details  see  ref.  23). 

The  slators  are  composed  of  orthonormal  orbitals  and 
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therefore 


«|>(  I ;  j  )  l4>(J;k)>  -cfn(  I ;  j  )n(J;k)  cfl  (I ;  j)l  (J;k) 

cfml  (l;j)ml(J;k)cTms(l;j)ms(J;k)  (3-5) 


holds.  The  coefficients  a1  depend  on  the  case  in  question 
and  are  determined  as  outlined  in  chapter  II  and  appendix 

III. 

From  here  on  it  will  be  understood  that  the  discussion 
refers  only  to  the  state  with  the  multiplicity  '?6+1L  and 
therefore  the  superscript  *2s"*1  L  will  be  dropped. 

The  expectation  value  of  any  operator  0  is  given  by: 


(3-6) 


<0> 


Substituting  the  explicit  expression  of  the  slator/ 
eqn  (3-2)/  into  eqn  (3-6)  and  using  the  relationship  (1-1/ 
1 )  yields: 


<0> 


The  operators  of  interest  can  in  general  be  written  as 
see ( 2-4 ) 


(3-8) 


0 


. 
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We  now  substitute  eqn  (3-8)  into  eqn  (3-7)  and 
rearrange  Dr  and  D7  to  "maximum  match",  that  is.  If  orbital 
(j)(  I ;  j )  occurs  at  all  in  D 0  ,  then  it  will  occur  in  the  same 
position  of  D u  as  <^>(l;j)  occurs  in  Dr.  Thus  we  obtain: 


<0> 


X  I ,  J  a1  a  J{X<(j)(  I ;  i  )  |01|<f>(J;  i  )>*V  n-1 


+  L<d>(  I  ;  i  )4>(  I ;  j  )  I0a  |  X(-l)p  P(l)(j;  i  )(j>(j;  j  )>*  V  n-2 

T 

+  X  <(j)(  i ;  i  )c[>(  | ;  j  )cj)(  I ;  k )  |  0J  |  X  (  -1  )p  Pcj)(  J ;  i  )cj)(J;  j  xj}(  J ;  k )  > 

*^N-3 

+  «|i(  I ;  I  )<J>( ;  j  x|>(  I ;  k  xf  { I ;  1 )  I 


10"  llc-l/ p4>(J;  I  1 )  >  V  N-4J 


(3-9) 


The  summation  of  the  permutation  operators  runs  over 
all  elements  of  S2,Sj,S^,for  2-,3-,4-electron  operators, 
respect  I vel y . 

The  symbol  Vn-1  has  the  meaning 

-  0  if  the  two  slators  are  not  identical  in  the 
N-i  orbitals  not  shown  in  the  integral 


1  otherwise 
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Expression  (3-9)  is  formidable  looking  and  not  easily 
handled.  One  can  simplify  matters  considerably  if  one 
rewrites  the  expression  for  <0>  as  a  sum  over  non-zero 
integrals  by  carrying  out  all  the  permutations  and  then 
integrating  over  the  sp 1 nf unct i ons .  This  leads  to: 


(3-10) 


A1  ,  3 *  ,Ck  ,D€  are  constants  obtained  by  summing  the 


various  contributions  a1  a*7  from  eqn(3-9).  I1,li/I3/Iv  are 
the  number  of  non-zero  1-,  2 -,  3-  and  4-electron  integrals 
respectively.  The  y  are  space-orbitals  not  including  the 
spin  and 


denote  the  space  quantum  numbers  of  the  1-st  orbital  of  the 
i -th  i ntegral . 

The  advantage  of  expression  (3-10)  over  other  form- 
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1)  It  Is  completely  general  and  holds  for  any  state 
whatsoever.  One  obtains  such  an  expression  regardless  of 
averaging  over  all  subspecies  of  a  symmetry  or  just  taking 
into  account  one  particular  subspecies. 

2)  It  is  easily  obtained  by  a  programmed  procedure  for 
an  electronic  computer. 


Following  the  conventional  formalism  of  the  Roothaan 
expansion  method,  each  orbital  is  expanded  in  a  set  of 
basis  functions,  which  are  in  our  case  Slater-type-orbitals 
(STO) . 


'fCl;  I  Jr 

with 


i;p)*Tf(l1',ml1 


P 


i ;  p) 


TCO  4,ml*  ;  i  ;p) 
N(np  rir  ) 
Yd1, ml1;!) 

n,  rip 
n  p 


=  r'V1  *e~^  ^NCn^  )*Y(1  1,ml4  ;  1) 
is  a  normalization  constant 

is  the  spherical  harmonic  associated  with  the 
orb  1 ta 1  { 1; i J 

are  constants  for  each  particular  basis, 
is  an  integer  and 

is  a  constant  called  the  “orb  i  ta  1  -exponent! 
which  can  be  obtained  by  optimization 
procedures  or  application  of  rules  such  as 
the  Slater  rules  (see  ref.  27). 
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It  Is  worthwhile  noticing  that  the  expansion  coef¬ 
ficients  do  not  depend  on  the  ml-quantum  number.  This  recog¬ 
nizes  that  the  degenerate  set  differs  only  in  the  angular 
part  (see  ref.  15). 

Since  we  are  using  a  single  configuration  approach/ 
each  slator  is  expressed  as  a  set  of  orbitals  that  agree  in 
the  n-  and  1-quantum  numbers.  Any  set  of  n-  and  1-quantum 
numbers  occurring  in  one  slator  must  occur  in  any  other 
slator.  (Expression  (3-10)  holds  also  for  the  multi¬ 
configuration  case,  but  the  following  argument  has  to  be 
slightly  modified  to  include  mul t 1 conf i gurat ion  formul¬ 
ation). 

The  expansion  coefficients  depend  only  upon  the  n-  and 
1-quantum  numbers.  Therefore/  the  expression  (3-10)  yields 
the  expanded  form  (3-11): 


<0>  =Xi-l/l1  A1,  Zp/P  f  c(n,  1 ;  l/P)c(n/ 1 :  i/q) 

<%(n/ml ; i / p) | O3  |T(n/ml 1 ; i / q ) > j 
+  T}=l,\x  BJZ~p/q/r/S  (c(n1/l1;j/p)c(niJ1;j/q) 

c(nA/ 1  ^ ;  j  /  r )  *c(n  a/ 1  j  /  s  )*<X(  1  Sml  j  /  p)K(  lx/ml2-;j/r)|0A| 

lr(lSmli,;j/q)X(lA,ml1';j/S)>} 
+  Z~k  =  l/I*  CteZ~p,q,r,s,  t/U  {  c(n  S  1  L;  k,  p)c(n  %  1  k,  q) 

c(ni/la;k/r)c(nx/li;k/s)c(n  3/l3;k/ t)c(n3/  l3;k/U) 
<  'K  1 3  ,ml  *;k/  p)X(  1  J  /  ml  k/  r  )  £(  l3  /  ml  J  ;  k/ 1 )  |  03  | 
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c(n2,l2;l,r)c(n2,l2;l,s)c{n3,l3;l,t) 
c(n3,l3;l,u)c  (n4,l4;l,v)c  (n4 ,1*:1 ,  w) 


The  permutation  symbol  indicates  that  the  basis  funct¬ 
ions  of  the  ket  must  be  permuted  before  the  integration  is 
carried  out.  The  prime  on  the  ml-quantum  numbers  in  the  ket 
indicates  that  they  might  be  different  from  the  ml -gu an  turn 
numbers  in  the  bra. 

To  facilitate  the  writing  of  expressions  we  introduce 


where  for  example 


'> 


with  analogous  definitions  for  the  ether  symbols. 
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To  minimize  the  expectation va lue  <0>  one  subjects  the 
orbitals  to  a  variation  and  introduces  the  or thcnor mality 
constraint 

Cnn  S'  C71'1  =  (3-12) 

and  one  obtains  the  well  known  set  of  Hartree-Fock 
equations: 

C«  =  I  0  C1''l£nl;111  (3-13) 

~  n’el  ~  ~  — 

where  6(nl;n*l)  is  the  matrix  of  the  Lagrangian  multipliers 
and  the  F-matrix  is  given  by  equation  (3-14). 
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The  addition  symbol  +  used  In  eqn  (3-14)  signifies 


that  each 

of 

the  expansion 

coef f I c i en t 

products 

i n  pre- 

ceedi ng 

square 

brackets  Is 

assoc i ated 

wi  th  a 

d i f f erent 

order  I ng 

of 

superscr i p ts 

on  the 

I ntegra 1 

symbol s . 

The 

above 

equations  are 

:  used  In  the  conventional  SCF 

iterative  procedure  until  self-consistency  Is  obtained. 
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IV.  RESULTS  AND  DISCUSSION. 

IV. 1.  The  possibilities  of  the  program. 

The  program  was  set  up  with  the  aim  of  providing  the 
highest  flexibility  and  generality  possible.  Since  the 
computer  is  of  finite  size,  certain  limits  have  to  be 
defined  from  the  beginning.  These  limits  were  chosen  so  as 
to  compromise  between  computer  efficiency  and  desired  gener¬ 
ality.  The  program  in  its  present  form  handles  only  single 
configurations,  but  it  should  not  prove  too  difficult 
to  reformulate  certain  parts  of  the  program  to  include 
the  multiconfiguration  case. 


1 1 

was 

fe  1 1 

that 

the  Russe 1 -Saunde rs  coupling 

doe  s 

not  describe 

the 

t  rue 

state 

of  open 

she  1  Is 

of 

many 

e 1 ect  rons 

and 

therefore  an 

a  rb i t  ra  ry 

max i mum 

of 

ten 

elect  ron 

systems 

was  chosen. 

This  limit 

seemed  also  to 

be 

sens i b 1 e 

for 

the 

reason 

that 

it  all ows 

compl ete 

cove  rage 

the  first  row  of  the  periodic  system  of  elements. 

Another  choice  had  to  made  with  respect  to  the  maximum 
number  of  slators  admissible.  Again  an  arbitrary  maximum. 


thisOtime  of  up  to 

52  slators. 

was  chosen 

after 

some 

experimentation  and 

cons  1 de  ra  t Ions 

of  the 

findings 

of 

Harris  and  Schaeffer 

(17).  In  all 

of  the  work 

carried 

out 

these  limits  were  never  approached  and  It  is  felt  that  they 
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actually  could  be  lowered. 

For  computational  purposes  a  selection  was  made  of  the 
orbitals  admissible  in  the  configurations  to  be  computed. 
This  selection  could  be  easily  extended  if  the  need  should 
arise  and  Is  in  the  current  form  of  the  program: 
s-orbitals:  Is  2s  3s  4s 
p-orbitals:  2p  3p  4p  5p 
d-orbitals:  3d  4d 

A  more  severe  restriction  is  imposed  upon  the  number 
of  basis  functions  by  the  finite  size  and  finite  speed  of 
the  computer.  If  one  stores  the  3-electron  integrals  in  a 
6-dimensional  array  then  one  uses  nfc  8-byte  storage 
locations  which  means  125  kilo  bytes  (K)  for  five  basis- 
functions  and  373  K  for  six  basis  functions  and  2097  K  for 
eight  basis-functions.  (In  this  chapter  confusion  might 
arise  over  the  meaning  of  the  word  'integral1.  The  word 
integral  is  used  In  two  different  ways:  the  first  v/ay  It  is 
used  denotes  integrals  over  orbitals,  the  second  way  It  is 
used  is  the  description  of  integrals  over  Slater  type 
functions.  To  avoid  misunderstanding,  the  first  type  will 


be  written 

In  capital 

1 etters. 

1  .e 

.  INTEGRAL  whereas  the 

second  type 

will  be 

wr i t  ten 

in 

lower  case 

1  e t  te  rs  .  ) 

The  reduction  of  the 

numbe  r 

of 

storage  locations  was 

attempted 

by  storing 

on  1  y 

the 

distinctly 

d I  f fe rent 

I n  teg  ra 1 s. 

but  this 

proved 

to 

be  a  very 

computer- 

. 

;  ' 
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time  consuming  and  elaborate  process,  since  the  number  of 
distinct  Integrals  depends  upon  the  operator  P  In  expres¬ 
sion  (3-9)  and  a  different  routine  would  have  to  be  written 
for  each  case.  On  the  other  hand  work  by  Roothaan 
and  Bagus  (26)  has  shown  that  for  the  first  row  elements  an 
optimized  set  of  five  s-basls  functions  suffices  to  give  an 
adequate  SCF-wavefunct ion .  This  finding  together  with  the 
above  mentioned  difficulty  has  led  to  a  limitation  of  a 
maximum  number  of  five  expansion  functions.  To  alter  this 
limit  the  structure  of  the  whole  program,  especially  the 
part  where  the  3-electron  matrices  are  set  up,  would  need 
to  be  changed.  It  Is  felt  that  at  the  present  moment  such  a 
change  Is  not  necessary.  To  obtain  the  best  possible  wave- 
function,  with  the  limited  bases  set,  a  routine  has  been 
set  up  which  allows  optimization  of  the  orbital  exponents 
of  each  expansion  function  following  the  "brute  force" 
method  suggested  by  Roothaan  and  Bagus  (26).  This  optimiz¬ 
ation  routine  allows  the  exponents  to  be  optimized  with 
respect  to  the  various  quantities  being  minimized. 


. 
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IV.  2.  An  overview  of  the  states  for  which 

calculations  have  been  undertaken. 

During  the  development  of  the  program  a  variety  of 
states  have  been  computed.  Not  all  the  calculations  will  be 
discussed  in  detail.  Either  the  results  for  these  states 
have  been  obtained  previously  or  a  detailed  discussion  of 
these  states  would  not  add  considerably  to  an  under¬ 
standing  or  their  methods  employed  and  of  the  character¬ 
istics.  Table  ( I V- 1 )  lists  all  of  the  states  for  which 
calculations  have  been  carried  out  and  for  which  a  self- 
consistent  wavefunction  was  obtained. 

The  symbols  n,^  and  c(nl)  in  tables  I V  —  2  to  IV-14  are 


explained  on  page  26. 
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TABLE  IV-1 

OVERVIEW  OF  CALCULATIONS 


ATOM 

CONFIGURATION 

STATE 

method* 

He 

Is4 

*S 

1, 2,3,11,5 

Is  2s 

4S,3S 

1,  4,5 

Is  3s 

1s/  3S 

4,5 

Is  2p 

1P/  3p 

1,2, 3, 4, 5 

Is  3 p 

4P,  3P 

1,2, 3, 4, 5 

Is  4p 

4P,  3P 

2, 3, 4, 5 

2s  2p 

*p 

4 

l  i 

lsa 

as 

1,2, 3, 4, 5 

Li 

Is*  2s 

as 

1,2, 3, 4, 5 

Is1  3s 

*$ 

2, 3, 4, 5 

Is*  2p 

*p 

1,2, 3, 4, 5 

Is1  3p 

*P 

2,3,4, 5 

Be 

ls»  2s* 

as 

1,2, 3, 4, 5 

C 

lsa2sa2pa 

*P,  4S,  AD 

1 

1:  <H>-mln Imizat ion 

2*  <(|_|-£)a> -minimization  (A-ml  n  imi  za  t  Ion ) 
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3:  < ( H-W)* > -mi n iml zat 1  on  (A-ml nl mi zat 1  on ) 

4:  ^/A-mi  nlmi  zat  f  on 

5:  ^VA-mi  n !  mi  zat !  on 

6:  -minimization,  where  t  is  a  parameter 
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IV.  3.  Computing  times. 

The  most  severe  limitation  of  any  variational  method 
Involving  the  operator  H*  lies  In  the  large  amount  of 
computing  time  required.  It  should  be  well  born  in  mind 
that  the  following  discussion  of  computing  times  in  the 
case  of  the  ground  state  of  Be  is  based  upon  the  very 
general  program  where  not  every  possible  way  of  shortening 
the  execution  time  has  been  exploited.  At  the  end  of  this 
chapter  an  attempt  Is  made  to  calculate  an  upper  limit 
beyond  which  any  variational  method  involving  the  H5- 
operator  would  become  impractical  with  the  currently 

available  computers. 

The  expectation  value  <H2>  for  the  ground  state  of  Be 
Is* 2sa  4S  consists  of  two  1-electron  operator  INTEGRALS, 
four  2-electron  operator  INTEGRALS,  four  3-electron 
operator  INTEGRALS  and  three  4-electron  operator  INTEGRALS. 
The  s-orbitals  are  expanded  into  five  SI  a  ter- type-orb  i  tal s 
(STO).  The  computation  of  the  1-electron  operator  matrices 
does  not  consume  more  than  0.001%  of  the  total  computing 
time  (usually  far  less)  and  therefore  their  contribution 
will  be  neglected.  In  each  computation  one  has  two 

main  parts: 

a)  The  computation  of  the  Integrals  between  STO's. 

b)  The  computation  of  the  matrix  elements  of  the  Fock 
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matrices  using  the  computed  Integrals  between  STO's. 

Part  a)  Is  only  done  once  In  each  calculat!on/ 
part  b)  Is  repeated  until  self-consistency  within  a  certain 
degree  of  accuracy  Is  obtained.  (With  the  IBM  360/67 
computer  at  the  University  of  Alberta  Computing  Centre 
10“  Is  the  highest  sensible  accuracy  which  can  he 
obtained  between  two  succeslve  Iterations/  but  one  usually 
stops  the  calculation  when  an  accuracy  of  10~v  to  10"?  has 
been  obta I ned) , 

Since  the  wavefunctlon  for  Be  can  be  approximated  using 
only  s-orbitalS/  s-type  STO  Integrals  only  are  computed. 

For  five  basis  functions  this  requires  the  computation 
of  5  *  =  625  (l/r,a)/  625  (l/r12)3,  3*625  (h4*l/ru) 
integrals  between  STO's  for  the  2-electron  operators  and 
6*5  *  =  93/  750  (r,ari3)“4  and  3*5*  =46/  875  (h4*l/ra) 
Integrals  between  STO's  for  the  3-electron  operators. 
No  Integrals  between  STO's  for  4-electron  operators  have  to 
be  computed/  since  these  integrals  can  be  obtained  by 
multiplying  the  appropriate  (l/r  '*■)  STO  integrals. 

The  computation  of  the  3125  2-electron  operator 
STO  integrals  took  11.667  sec,  the  computation  of  the  140/ 
625  3-electron  operator  STO  integrals  consumed  1/068.171 
sec.  (All  times  are  Central  Processing  Unit  times.) 

As  a  rule  these  integrals  are  transferred  from  the 
temporary  magnetic  disk  storage  to  magnetic  tape  and  can 
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then  be  used  in  the  calculation  of  different  variational 
schemes . 

To  set  up  the  Fock  matrices  for  2-electron  operators 
one  has  to  compute  8*25  matrix  elements  which  involves 
4*4*625  summations.  This  step  takes  only  0.759  sec.  In  all 
cases  the  computation  of  the  2-electron  operator  matrices 
required  usually  a  negligible  amount  of  time. 

The  3-electron  operator  matrices  Involve  a  far 
greater  number  of  summations.  For  each  INTEGRAL  5^  =  15,625 
summations  are  carried  out.  Since  one  has  also  to  compute 
the  correction  matrices  of  the  H i nze-Root haan  formalism, 
the  total  number  of  summations  increases  to  4*15*15,625  = 
937,000  summations  using  33.565  sec. 

The  number  of  computations  increases  sharply  for  the 
4-electron  operator  matrices.  For  the  three  INTEGRALS  In 
the  present  case  it  Includes  3*28*5tf  =  32,812,500  summat¬ 
ions  using  1,314.394  sec. 

With  the  present  general  program  the  minimization 
of  for  the  Be  Is*  2sl  AS  case  employing  five  basis 
functions  uses  approximately  22  min  per  iteration  and  an 
additional  18  min  to  calculate  the  STO  integrals.  If  the 
results  of  the  computation  using  two  basis  functions  can  be 
extrapolated,  four  iterations  should  suffice  to  achieve 
convergence,  which  would  yield  an  overall  time  of  106  min. 
It  is  felt  that  these  requirements  upon  the  computing  facil- 
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Itles  are  excessive. 

How  would  one  fare  using  all  possible  ways  to  cut  down 
the  required  time?  As  Is  clear  from  the  foregoing 
discussion/  not  much  will  be  gained  Improving  the 
computation  of  the  1-  or  2-electron  operator  matrices.  If 
one  abandons  the  H I nze-Root haan  formalism  and  uses 
coupling  operator  methods/  one  would  roughly  diminish  the 
time  for  computing  3-electron  operator  matrices  by  a  factor 
of  five  and  4-electron  operator  matrices  by  a  factor  of 
seven/  diminishing  the  total  time  for  each  iteration  from 
1349  sec  to  193  sec.  Further/  computing  only  the  necessary 
elements  would  reduce  the  number  of  computations  for  the  s- 
type  integrals  In  the  Be  ground  state  case  from  (n2)*  and 
(na)H  to  ^n*(n+l)/2'j J  and  [n  *  ( n  + 1 )  /  2  ]  H,  reducing  the 
computation  time  for  the  3-electron  operator  matrices  by  a 


factor  of 

f  I  ve 

an  d 

of 

the  4-electron  operator 

matrices 

by  a  factor 

of 

e i gh t / 

decreasing  the 

total 

for 

each 

I te  rat  ion 

to  about 

30 

sec.  Computing 

on  1  y 

those 

STO 

integral s 

that 

a  re 

unique/  one  would  be 

able  to 

cut 

the 

comput i ng 

t  Ime 

of 

the 

integrals  to  about  9 

min/ 

and 

the  computation 

of 

the 

ground  state  of  Be 

woul  d 

requ  i  re  a 

total  of 

11  min.  This 

time  seems  to  be 

the  lower 

limit 

which  could  be  reached. 

It  is  interesting  to  extrapolate  these  times  to  the 
case  of  C  ls*2sl2p*  1S.  The  expression  for  <H2>  in  this 
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configuration  consists  of,  other  than  the  1-  and  2-electron 
operator  INTEGRALS/  the  51  3-electron  operator  INTEGRALS 
and  100  4-electron  operator  INTEGRALS.  For  this  state  one 
should  use  five  basis  functions  for  both  the  s-  and 
p-orbitals.  One  can  roughly  estimate  that  half  of  the 
INTEGRALS  would  be  highly  symmetrical  allowing  the  same 
saving  as  In  the  case  of  Be  Is2 2s1 .  The  other  half  would 
require  nu  and  n*  summations  for  the  3-  and  4-electron 
operator  INTEGRALS  respectively.  Based  upon  these  estimates 
the  3-electron  operator  matrices  would  require  47  sec  and 
the  4-electron  operator  matrices  2920  sec  per  iteration. 
Thus  each  iteration  would  approximately  require  50  min. 

A  conclusion  from  the  foregoing  sections  is  that  any 
variational  principle  using  the  <Ha>  expression  is  imprac¬ 
tical  with  present  day  computer  technology  for  systems 
larger  than  Boron  or  Carbon. 
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IV. 4  Singly  Excited  States  of  Helium 

In  order  to  test  the  program  the  AP,  3P  states  of  He 
Is  np  n  =  2,3  and  4  were  computed  and  the  results  compared 
with  the  values  obtained  by  Messmer  (10).  Since  these 
results  are  essentially  Identical  they  are  not  listed  here. 

A  little  bit  more  complex  Is  the  computation  of  the  3S 
and  3S  state  for  the  He  Is  ns  n  =  2,3  since  two  open  shells 
of  the  same  symmetry  are  present.  Tables  I V  —  2  and  I V  —  3  show 
the  results  of  these  computations.  It  should  be  noted 
that  the  orbital  exponents  are  not  optimized  but  are 
obtained  by  applying  Slater's  rules.  The  energy  of  these 
states  computed  by  Davidson  (31)  are  closer  to  the  exper¬ 
imental  energy  than  those  of  tables  I V  —  2  and  I V  —  3 .  This 
result  is  to  be  expected  as  discussed  by  Messmer  (10). 
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TABLE  IV-2 


He  1S-states 

■X. 

£  /A-ml  n  Jm  1  za  1 1  on 

CONFIGURATION 

Is  2s 

Is  3s 

EXP. ENERGY 

-2.14572 

-2.06104 

CALC. ENERGY 

-2.167767 

-2.014324 

<Ht> 

4.716966 

4.064116 

EPS  1  LON 

0.022 

0.047 

DELTA 

0.017751 

0.01064 

DELTA-TILDE 

0.018237 

0.01291 

<  1/  r> 

2.345 

2.209 

<r> 

5.092 

12.810 

<  r 1  > 

22.908 

191.681 

WAVEFUNCT ION 

CONFIG.  :  Is 

2s 

Is  3s 

n 

c(  Is ) 

c  ( 2s )  n 

c ( Is  )  c  (  3s ) 

1 

1.7  1.28464 

-0.32975  1  1.7 

1.30372  0.12457 

2 

1.7  -0.42489 

0.03875  2  1.7 

-0.36615  0.07879 

2 

0.6  0.36863 

0.89374  2  0.4 

-0.12466  -4.03900 

3 

0.6  -0.39368 

0.27513  3  0.4 

0.38832  8.96681 

4 

0.6  -0.16346 

-0.15221  4  0.4 

-0.27712  -5.55659 
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TABLE  I V-3 


He  3S-states 


7  ^ 

€  /A  -mi  n  Iml  za t  ion 


CONFIGURATION 

Is  2s 

Is  3s 

EXP. ENERGY 

-2.17498 

-2.06845 

CALC. ENERGY 

-2.169550 

-2.073443 

<H*> 

4.83565 

4.082679 

EPSILON 

0.005 

0.0049 

DELTA 

0.128702 

0.021646 

DELTA-TILDE 

0.128731 

0.021648 

<  1/  r> 

2.304 

2.251 

<r> 

5.113 

10.092 

<r  *■> 

23.208 

124.771 

WAVE  FUNCT 1  ON 

CONFIG.  :  Is 

2s 

Is  3s 

n 

c(  Is ) 

c ( 2s  )  n 

n 

c  ( Is ) 

c(3s) 

1 

1.7  1.28262 

-0.06240  1 

1.7 

1.30888 

0.14552 

2 

1.7  -0.33736 

-0.09171  2 

1.7 

-0.38163 

0.16194 

2 

0.6  -0.00212 

1.01654  2 

0.4 

0.03540 

-4.49143 

3 

0.6  -0.14865 

0.09985  3 

0.4 

-0.02394 

9.34964 

3 

0.6  0.06388 

-0.06865  4 

0.4 

0.01067 

-5.20429 
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A  Doubly  Excited  State  of  Helium 
After  having  replicated  the  calculations  for  the 
excited  states  Is  np  (n=2  to  4)  and  computed  some  other 
singly  excited  states,  (shown  In  tables  IV-2,3),  It  seemed 
to  be  challenging  to  attempt  a  more  difficult  task, 
namely  He  2s2p  JP  which  Is  reported  in  the  literature  by 
Madden  and  Codling  (25)  to  have  an  absorption  at  206.2  A 
(0.6768  a.u.).  Some  experimentation  was  necessary  before 

orbital  exponents  were  found  that  gave  a  satisfactory 
convergence.  In  the  first  trial  the  s-orbital  was  expanded 
In  4  STO  (n=l  to  4)  and  the  p-orbital  in  4  STO  (n=2  to  5) 
with  an  orbital  exponent  =  0.85  for  all  eight  basis 

functions.  This  starting  wavefunction  could  not  be  brought 
to  convergence.  The  same  problem  arose  when  the  orbital 
exponent  was  changed  to  0.5  to  allow  for  greater  diffuse¬ 
ness.  From  these  two  runs  the  impression  was  gained  that  a 
shifting  of  the  weight  of  the  wavefunction  between  2s  and 
3s  STO  was  mainly  responsible  for  the  nonconvergence. 
Therefore  the  following  STO's 

s-orbital:  1  0.850,  2  0.850,  3  0.500,  4  0.500 

p-orbital:  2  0.885,  3  0.885,  4  0.885,  5  0.885 

were  tried  and  led  to  a  rapid  convergence  (5  iterations) 
with  an  energy  of  -0.655  a.u.  This  wavefunction  was  then 
used  as  the  starting  point  of  an  optimization  run, 

which  yielded  the  results  in  Table  IV-4.  The  energy  differ- 
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ence  of  0.0195  a.u.  Is  In  fact  very  satisfactory/  since  the 
difference  between  experimental  and  Hartree-Fock  energy  for 
the  ground  state  Is  0.041  a.u.  From  a  priori  consider¬ 
ations  one  would  expect  the  Hartree-Fock  energy  of  the  2s 
2p  state  to  be  closer  to  the  experimental  energy/  since  the 
correlation  between  a  2s  and  a  2p  electron  should  be  much 
smaller  than  the  correlation  between  two  Is  electrons. 
Another  indication  for  the  "correctness"  of  the  wave- 
function  are  the  values  for  <l/r>/  <r>  and  <r*>  which  give 
average  distances  of  the  electrons  from  the  nucleus.  The 
value  of  7.054  a.u.  is  about  0.8  a.u.  larger  than  the 
corresponding  value  for  the  Be  ground  state,  which 
indicates  a  rather  diffuse  electron  "cloud".  This  dlffuse- 
nessOagaln  Is  to  be  expected  from  a  priori  considerations. 
It  Is  believed  that  the  wavefunction  of  Table  I V - 4  repres¬ 
ents  the  He  2s  2p  1P  state  as  well  as  can  be  expected  in 
the  context  of  the  Hartree-Fock  orbital  expansion  aoprox- 
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TABLE  IV-4 


He  2s  2d 

4P 

1  /*» 

€  /A  -min  Imi  zat  Ion 

EXP. ENERGY 

-0.67684 

CALC. ENERGY 

-0.657306 

<Hi> 

0.475883 

EPSILON 

0.019531 

DELTA 

0.043831 

DELTA-TILDE 

0.044212 

<  1/  r> 

0.795 

<r> 

7.054 

<rL> 

32.013 

WAVE  FUNCTION 

2s 

2p 

n  nri 

c  ( 2s ) 

n  7^ 

c  (  2p ) 

1  0.845 

-0.63350 

2  0.881 

1.38753 

2  0.907 

1.02653 

3  0.929 

-0.52650 

5  0.569 

0.58179 

4  0.885 

0.14679 

4  0.467 

-0.06362 

5  0.885 

-0.15918 

• ; 


. 

* 
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IV-5  Computation  of  the  LI  ls*np  aP  states. 

To  demonstrate  the  utility  and  versatility  of  the  /A 
method.  It  was  Intended  to  compute  the  series  LI  lsl2p  XP, 
LI  Is1  3p  lP  and  LI  ls^p  2P.  The  calculation  of  the  LI 
ls22p  *P  Is  shown  In  Table  IV-5.  The  orbital  exponent  for 
the  p-orbltals  was  derived  from  Slater's  rules  (27).  The 
orbitals  exponents  for  the  s-orbltals  were  taken  from 
Huzinaga's  tables  (19). 

But  difficulties  were  encountered  when  It  was  tried 
to  extend  the  same  approach  to  the  state  LI  ls23p  2P  where 
again  the  orbital  exponents  for  the  p-orbltals  were  derived 
f romOS 1 ater' s  rules.  The  result  obtained  (table  I V  —  7 ) 
looked  very  much  like  that  obtained  for  the  lowest  XP  state 
(table  IV-5).  To  confirm  this  interpretation  the  expect¬ 
ation  value  <H>  was  minimized  using  the  same  starting 
vector  and  orbital  exponents  (table  I V  —  6 ) .  It  Is  evident 
that  £2/2  converged  towards  the  ground  state  and  not  the 
excited  state. 
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TABLE  I  V  —  5 


LI  Is*  2p  zp  6.  /A-rrti  n  Iml  za  1 1  on 


EXP. ENERGY 

-7.40987 

CALC. ENERGY 

-7.363932 

<H*> 

55.78432 

EPS  1  LON 

0.046 

DELTA 

1.556814 

DELTA-TILDE 

1.558935 

<  1/  r> 

5.678 

<r> 

5.929 

<  r  2> 

28.505 

WAVE  FUNCT 1  ON 

Is 

2p 

n  R 

c(  Is ) 

n 

c  ( 2p ) 

1  2.482 

0.86898 

2  0.650 

0.74159 

1  4.687 

0.15107 

3  0.650 

-0.12270 

2  0.672 

-0.00196 

4  0.650 

0.53731 

2  1.975 

0.02246 

5  0.650 

-0.09639 

. 
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TABLE  IV-6 


lsz 3p  ZP  <H>  -minimization 


EXP. ENERGY 
CALC. ENERGY 
EPS  I  LON 
<l/r> 

<  r  > 

<rx> 


-7.33687 

-7.364697 

0.0376 

5.633 

5.960 

29.012 


WAVE FUNCT I  ON 


Is  3p 


n 

n 

c  ( Is ) 

n 

V, 

c(  3p) 

1 

2.482 

0.89293 

2 

0.430 

1.75996 

1 

4.687 

0.11263 

3 

0.430 

-1.39675 

2 

0.672 

0.00073 

4 

0.430 

0.88507 

2 

1.975 

-0.01137 

5 

0.430 

-0.29975 

. 

. 

. 


. 


f  n 
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. 
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TABLE  I  V  —  7 


lsa  3p  *P  -ml  n  im i  za  1 1 on 


EXP. ENERGY 

-7.33687 

CALC. ENERGY 

-7.364627 

<HJ> 

55.726767 

EPSILON 

0.0277 

DELTA 

1.489023 

DELTA-TILDE 

1.489793 

<  l/r> 

5.649 

<  r  > 

5.953 

<rx> 

28.965 

WAVE  FUNCTION 

Is 

3p 

n  T. 

c  ( Is ) 

n  ri 

c ( 3p) 

1  2.482 

0.88896 

2  0.430 

1.76475 

1  4.687 

0.11674 

3  0.430 

-1.40734 

2  0.672 

0.00036 

4  0.430 

0.90346 

2  1.975 

0.01190 

5  0.430 

-0.30247 

. 

. 

. 

. 

• 

• 

. 
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Subsequently  a  large  number  of  calculations  have  been 
carried  out  in  an  attempt  to  obtain  a  wavefunctlon 
which  could  with  certainty  be  assigned  to  a  definite 
excited  state. 

The  first  attempt  Involved  changing  various  orbital 
exponents  and  using  shorter  expansions.  These  trials  led  to 
wavefunct  i ons  that  possessed  various  different  minima,  but 
due  to  the  size  of  the  values  of  £  and  £/(W K  -W l)x  no 
assignment  to  a  definite  configuration  could  be  made.  Then 
It  was  believed  that  It  could  be  useful  to  combine  the 
advantage  of  a  small  delta  with  a  small  epsilon  by 
minimizing  the  expression  A  +  t*e*-  with  various  values  of  t. 
Again  the  same  behaviour  as  In  the  previous  attempts  was 
observed:  convergence  towards  different  minima  which  could 
not  be  associated  unequivocally  with  a  certain  con¬ 
figuration.  After  this  method  had  been  exhaustively  tried 
it  was  attempted  to  annihilate  any  effect  the  H i nze-Root haan 
formalism  might  bear  upon  the  direction  of  convergence  and 
a  normal  Jacob I-dlagonal izat ion  was  carried  out  upon  the  F- 
matrlces.  This  Is  possible  for  the  configuration  discussed 
since  it  consists  of  maximally  one  open  shell  for  each 
symmetry  representation  and  the  matrix  of  the  Lagranglan 
multipliers  can  therefore  be  diagonalized  by  a  unitary 
t rans f o rma t I on .  Some  problems  arose  here,  because 
It  is  not  a  priori  evident  which  eigenvector  should  be 
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selected  as  the  vector  for  the  next  approximation.  This  was 
solved  by  having  all  vectors  displayed  on  a  computer 
terminal  and  selecting  the  ones  which  seemed  to  possess  the 
right  eigenvalues.  With  this  method  a  convergence  problem 
was  encountered  since  small  changes  in  the  s-orbitals  led 
to  large  changes  in  the  p-orbital.  To  overcome  this 
difficulty  various  "frozen"  orbital  approaches  were 
used  and  convergence  was  reached.  Again  the  resulting  wave- 
function  could  be  made  to  approach  various  minima  and  no 
clear  designation  could  be  made  of  which  wavefunction 
belongs  to  which  state. 

A  final  approach  then  utilized  hydrogenlc  p-orbitals 
with  various  orbital  exponents  and  the  £72  method 
to  approach  the  excited  state.  Since  a  compilation  of  all 
these  data  would  enlarge  this  thesis  un reasonabl y,  only  the 
main  results  and  the  conclusions  from  all  these  computations 
will  be  given  in  section  IV-8. 

A  finding  which  was  encountered  in  every  one  of  the 
computations  was  a  variety  of  minima  in  the  energy  surface 
which  could  be  approached  by  the  methods.  The  exact  value 
of  these  minima  changed  with  the  orbital  exponents  used/ 
but  mostly  two  to  three  minima  could  be  clearly  separated 
by  using  various  kinds  of  starting  vectors. 

A  striking  example  of  the  sensitivity  of  the  method  to 
small  changes  In  the  orbital  exponents  or  starting  vectors 
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was  provided  when  hydrogenic  p-orbitals  were  employed 
which  were  either  left  unchanged  during  the  iterations 
("frozen"  p-orbital)  or  were  subjected  to  the  minimization 
procedure  ("floating"  p-orbital).  Table  I V- 8  shows  the 
results  which  were  obtained  for  various  orbital  exponents 
for  the  p-orbitals.  By  using  the  vectors  obtained  from  a 
self-consistency  run  with  "floating"  orbitals  as  starting 
vectors  for  a  self-consistency  run  with  frozen  p-orbltals, 
the  energies  which  we  re  before  between  6.9  and  7.1  a.u. 
then  fell  into  the  range  7.2  to  7.36  a.u..  These  fairly 
widely  separated  energies  seem  to  suggest  that  the  one 
expansion  (I.e.  STO  basis  functions  with  the  same  orbital 
exponents)  can  serve  as  an  approximate  wavefunctlon 
for  several  different  configurations. 
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TABLE  I  V- 8 


Li  Is1 3p  XP 

s-orbltal  exponents:  1,4.5 

p-orbital  exponent 
(hydrogenic  orbital) 

0.20 

0.25 

0.30 

0.35 

0.40 

0.50 

0.60 


€  /A  -minimization 

1,3.4;  1,2.4;  1,1.6;  1,0.6 


ENERGY 


p-f I xed 

p-f 1 oa t I ng 

-7.131923 

-7.336639 

-7.348105 

-7.348840 

-7.076623 

-7.356811 

-7.375001 

-7.361310 

-7.018950 

-7.363182 

-6.958879 

no  convergence 

-7.285780 

no  convergence 
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IV. 6  Comparison  of  the  Variational  Methods  Using;  Be  Is1  2sa 
To  compare  the  different  variational  principles  the 
ground  state  of  Be  lsx2sl  *S  was  computed,  using  two  STD 
expansions.  This  very  truncated  basis  set  was  used  In  order 
to  save  computing  time,  since  the  orbital  exponents 
were  fully  optimized  with  respect  to  the  quantity  being 
minimized.  It  Is  not  expected  that  the  obtained  wave- 
functions  are  of  high  quality  but  It  Is  believed  that  they 
are  sufficient  to  demonstrate  the  differences  which  exist 
between  the  different  variational  methods. 

On  the  other  hand  the  computation  of  a  smaller  system 

such  as  LI  or  He  was  not  considered.  In  order  to  demon¬ 
strate  the  correctness  of  the  4-electron  operator  matrix 

routines  and  to  see  if  there  is  a  qualitative  difference  in 
going  from  a  3-electron  system  (Li)  to  a  4-electron  system. 

The  same  relationships  which  show  up  In  this  case  have 
been  found  to  hold  true  for  all  other  states  computed, 
whether  the  orbital  exponents  were  optimized  or  not.  Tables 
I  V - 9  to  I  V  —  1 3  show  the  results  obtained.  Computing  times 
forOthe  full  optimization  process  were  in  between  15  -  20 


minutes  per  state. 


.  ' 

•  J 


1  ’  •  ■  II  • 


- 

I 


58 


*  These 


TABLE  IV  -9 


Be  Is1  2s  *  1s 


<H>  -ml n Imi za t Ion 


EXP. ENERGY 

-14.66785 

CALC. ENERGY 

-14.556759 

<Hl> 

215.556370  * 

EPS  1  LON 

-  0.111107 

DELTA 

3.657720  * 

DELTA-TILDE 

3.670033  * 

<  1/  r> 

8.404 

<r> 

6.140 

<rz> 

17.339 

WAVE FUN CT 1  ON 

n 

*1 

c  ( Is ) 

c(2s) 

1 

3.684801 

0.997586 

-0.204439 

2 

0.956031 

0.012388 

1.018244 

values  were  computed  using  the  above  wavefunctlon 


In  computing  the  <H1>  matrices 
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TABLE  IV-10 


Be  Is*1  2sl  1S  A  -minimization 


EXP. ENERGY 
CALC. ENERGY 
<HV> 

EPSILON 

DELTA 

DELTA-TILDE 

<  1/  r> 

<  r  > 

<  r 2  > 


-14.66785 
-14.378674 
207.922944 
-  0.289172 
1.176655 
1.260275 
9.165 
4.789 
9.971 


WAVEFUNCT I  ON 


n  ^ 

1  3.843778 


c ( 1  s )  c(2s) 

0.968926  -0.386187 


2 


1.290642 


0.094243 


1.038741 


. 

. 

. 

, 

. 
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TABLE  I V  —  1 1 


‘S  2  -ml n I m I za  1 1  on 


EXP. ENERGY 

-14.66785 

CALC. ENERGY 

-14.444846 

<Hl> 

209.814687 

EPS ! LON 

-0.223000 

DELTA 

1.161095 

DELTA-TILDE 

1.210824 

<  1/  r> 

9.072 

<r> 

5.880 

<rx> 

11.426 

WAVEFUNCT 1  ON 

n 

c(  Is ) 

c(2s) 

1 

3.865673 

0.975836 

-0.338806 

2 

1.195039 

0.083379 

1.029698 

. 
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TABLE  IV-12 


Be  Is1  2s1  *s 

EXP. ENERGY 
CALC. ENERGY 
<H  2  > 

EPS  I  LON 
DELTA 

DELTA-TILDE 

<  1/  r> 

<r> 

<  r 2  > 


-minimization 

-14.66785 

-14.506959 

216.338208 

0.160887 

5.886334 

5.912219 

8.144 

6.234 

17.779 


WAVEFUNCT I  ON 


n  n_ 

1  3.557376 

2  0.945765  • 


c(  Is )  c ( 2s  ) 

1.000355  -0.198810 

-0.001181  1.019017 


. 

. 


.  > 

. 

. 

, 

. 

. 
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TABLE  I  V  —  1 3 


Be  Is z  Is1 

e  /a  - 

EXP. ENERGY 

-14.66785 

CALC. ENERGY 

-14.506958 

<H2> 

216.338298 

EPSILON 

-  0.160888 

DELTA 

5.886455 

DELTA-TILDE 

5.912340 

<  1/  r> 

8.143 

<r> 

6.234 

< r  *> 

17.779 

WAVEFUNCT 1  ON 

n 

c(  Is ) 

1 

3.557360 

1.000356 

- 

2 

0.945767 

-0.001819 

I n Imi za t I o 


c(2s) 

.198807 

.019918 


- 

.  £- 
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The  starting  wavefunction  and  the  starting  orbital 
exponents  were  taken  from  the  work  of  Huzinaga  (19).  In 
order  to  have  one  more  test  of  the  correctness  of  the 
program  used,  the  <H>  minimization  was  repeated  in  full 
with  optimization  of  the  orbital  exponents  and  the 
results  obtained  agreed  to  6  -  8  figures  with  Huzinaga's 
results.  The  wavefunction  obtained  in  the  <H>  minimization 
was  then  used  to  compute  the  expectation  value  <H*>  to 
obtain  a  result  for  A  and  A  which  could  be  compared  with 
the  other  variational  methods. 

The  following  general  trends  hold  for  the  various 
quantities  computed: 

E  (A )  =  E  (A)  >  E(£2/A)  =  E(^M)  >  E(<H>) 

AC^Va)  sa(cVa)  >  A(<H>)  >A(A)  *  A  (A ) 

Furthermore  the  wavefunct ions  obtained  by  £/A  and  £  /A 
minimization  resemble  closely  those  obtained  from  <H> 
minimization,  whereas  the  wavefunct Ions  for  A  and 
A  resemble  each  other  but  are  clearly  distinct  from  those 
obtained  by  the  other  methods.  The  deterioration  of  the 
energy  for  delta  and  delta-tilde  minimizations  was  quite 


striking. 
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IV.  7  Overlap  between  SCF-  and  C I -wavefunct Ions . 

In  order  to  obtain  a  more  thorough  understanding  of 
the  methods  employed  the  overlap  a  =  <cj)| of  the  computed 
SCF-wavefunct Ions  with  various  "correct"  wavef unct Ions  was 
calculated.  Table  (IV-14)  displays  these  results.  The  so- 
called  "correct"  wavefunct ions  were  various  configuration 
interaction  wavefunct  Ions  (28,29,30)  or  In  the  case  of 
hydrogen  the  correct  ground  state  wavef unct i on .  The 
computation  of  the  Be  overlap  provided  a  surprising  result, 
the  overlap  obtained  from  £7/A  minimization  was  less  than 
that  for  the  <H>  minimization.  To  test  if  this  result  was 
due  to  a  bad  approximate  wavefunction  or  to  electron 
correlation,  the  overlaps  of  various  approximate  wave- 
functions,  (f>  ,  of  Hydrogen,  with  the  exact  wavefunction  were 
computed.  These  approximate  wavef unct ions  were  chosen  to  be 
a  linear  combination  of  two  STO’s  i.e.  <j)  =  c*^  .The 
orbital  exponents  were  chosen  In  the  range  from  0.1  to  20.0. 
The  coefficients  ct  and  cz  were  chosen  In  such  a  way  that 
the  quantity  under  consideration  was  minimized.  One  result 
of  the  computation  (orbital  exponents  0.4  and  2.0)  is 
displayed  in  table  IV-14.  For  hydrogen  €7/A  variation  led  to 
a  maximization  of  the  overlap  in  all  cases. 
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TABLE  I  V  —  1 4 


Overlap  between  SCF-  and  C I -wavef unct ions 


ATOM  CONFIGURATION  STATE  METHOD*  OVERLAP 


H  Is 

He  Is* 

ls2s 

Be  lsi2si 

(2  basis  f unc t ions) 

(4  basis  functions) 

*see  Table  I V  —  1  for  an 


*S  1 

0.884437 

4 

0.927895 

3 

0.772312 

*S  1 

0.996202 

4 

0.995271 

sS  1 

0.903707 

4 

0.914973 

</> 

t— * 

0.956581 

2 

0.861201 

3 

0.901292 

4 

0.956198 

5 

0.956197 

1 

0.957503 

4 

0.957108 

5 

0.957116 

explanation  of 

the  methods 

. 

. 

. 

. 

. 

. 

. 
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IV.  8  Summary  and  conclusions. 

In  this  thesis  variational  principles  have  been  coded 
for  an  electronic  computer  so  that  they  could  be  applied  to 
atomic  states  and  their  usefulness  be  assessed. 

The  thesis  has  clearly  demonstrated  that  the 
minimization  of  A  or  A  does  not  lead  to  wavef unct i ons  that 
are  useful  in  obtaining  physical  properties  of  the  state 
under  consideration.  From  the  calculated  overlaps  it  can  be 
concluded  that  both  methods  yield  wavef unct ions  that 
occupy  different  parts  of  configuration  space  than  the  true 
wavef unc 1 1  on .  This  finding  is  similar  to  the  results 
obtained  by  Messmer  and  Birss  (3,4).  They  calculated  wave- 
functions  using  the  Temple-Kato  bound  (23,24)  and  the 
Lowdin  bounds  (8).  These  authors  found  that  the  bound 
formulations  add  contributions  to  the  trial  wavefunctlon 
which  do  not  help  In  the  description  of  the  wavefunctlon 
associated  with  the  state  being  considered.  On  the  other 
hand  the  computaion  of  A  or  A  using  the  SCF-method 
leadsO  to  a  very  unsatisfactory  bound.  According  to 
Weinstein  (6)  the  energy  of  the  true  wavefunction  lies 
somewhere  between  E  +  Fa  >,  W  >/  E  -  .  In  no  system  but  He 
has  it  been  possible  to  obtain  a  value  of  delta  smaller 
than  about  1.  This  bound  is  really  very  unsatisfactory  if 
one  tries  to  associate  a  wavefunction  with  an  excited  state. 
For  example  a  typical  energy  difference  between  states  for 
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smaller  atoms  Is  about  0.1  a.u..  Therefore,  to  assign  a 
definite  excited  state  to  a  certain  wavef unc t I on/  delta 
should  be  ^0.01.  It  should  be  pointed  out  that  the  size  of 
the  bound  Is  not  necessarily  connected  with  the  quality  of 
the  wavef unc t i on .  This  can  be  seen  for  the  Be  ground  state 
calculation,  where  the  -minimization  yields  a  far 
better  wavefunction  than  the  ^-minimization,  even  though 
the  bounds  in  the  former  method  are  much  worse  than  the 
bounds  In  the  delta  minimization.  The  better  quality  shows 
itself  in  the  better  energy,  better  overlap  and  <l/r>,  <r> 
and  <ri>  values. 

The  minimization  of  6  /&  or  £M  yields  good 
wavef unc t i ons  for  ground  and  excited  states.  The  main 
problem  consists  of  assigning  definite  configurations  to 
each  wavefunction  and  each  minimum.  In  the  e2 /&  method  one 
minimizes  the  overlap  of  the  "correction"  wavefunction  ($)  r  : 


since  the  relation 

e'/A  4  a*  ^  2T/(wlc-w;)*’ 

holds.  In  all  cases  the  value  of  Q*/A  could  be  reduced  to 
about  0.01  or  less.,  whereas  the  £/(Wk-W value  was  of 
the  order  100  to  200.  One  Is  therefore  hard  put  to  assign 
a  certain  configuration  to  the  wavefunction  obtained.  It  is 
strongly  believed  that  this  inability  to  reduce  the  upper 
bound  of  a2x  reasonably  Is  connected  with  the  orbital 
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expansion  SCF  approach.  The  best  wavefunctlon  one  can 
expect  from  this  approach  Is  a  Hartree-Fock  type  wave- 
function  with  all  its  shortcomings  with  respect  to  the 
correlation  of  the  electrons.  This  aspect  of  the  variational 
methods  is  further  clarified  by  analyzing  the  overlaps  for 
the  wavefunct ions  obtained  by  the  SCF-methods  and  Cl- 
me t hods . 

The  overlaps  obtained  by  minimizing  <H>  and  £X/A  Cor 
£/A)  show  a  peculiar  behaviour.  The  theory  states  that 
one  should  obtain  maximum  overlap  of  the  trial  wave- 
function  v/ith  the  true  wavefunctlon  by  minimizing  ^ /A  and 
this  result  Is  indeed  obtained  for  H  Is  *S  and  He  ls2s  4S, 
but  for  the  other  states  the  wavefunctlon  obtained  by 
<H>-m i n im i za 1 1  on  leads  invariably  to  a  larger  overlap.  All 
these  results  clearly  indicate  the  sensitivity  of  the 
methods  to  correlation  between  electrons.  For  the  states 
where  the  method  leads  to  the  expected  maximization  of  the 
overlap  the  correlation  between  electrons  Is  nonexistent  or 
small.  For  the  states  where  correlation  is  important 
and  large  (e.g.  two  electrons  occupying  one  space  orbital) 
the  overlap  of  the  wavefunctlon  obtained  by  <£.7/£> 
minimization  is  smaller  than  the  overlap  of  the  wave- 
function  obtained  by  <H>-mIn imiza t ion .  Furthermore 

the  size  of  delta  is  proportional  to  the  importance  of 
correlation.  This  Is  most  clearly  demonstrated  by  the  two 
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states  He  Is*-  *S  and  LI4-  Is4  A$ .  (These  results  have  not 
been  tabulated).  These  two  atomic  systems  are  very  similar 
In  many  aspects.  The  larger  charge  of  the  Li-nucleus  exerts 
a  larger  attractive  force  upon  the  electrons  thereby 
diminishing  the  average  distance  from  the  nucleus  as 
compared  with  He.  The  shorter  distance  of  the  electrons 
from  the  nucleus  enhances  the  correlation  between  them. 
This  enhancement  is  reflected  by  an  increase  of  from  0.5 
(He  Is1  1S)  to  1.4  (LI4-  Is2-  XS)  ,  An  answer  to  the  question 
of  how  critical  the  correlation  effect  between  electrons  Is 
for  the  £4/A  variational  method  could  be  obtained  by 
employing  various  conf I gura t ion  interaction  wave  functions 
to  the  <^/£,  variation.  One  should  then  be  able  to  observe 
the  amount  of  correlation  which  has  to  be  taken  into 
account  before  a  wavefunction  obtained  by  £l/A.  minimization 
shows  a  greater  overlap  with  a  "true"  wavefunction  than  one 
obtained  by  minimizing  <H>. 
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APPENDIX  I. 

THE  EVALUATION  OF  MATRIX  ELEMENTS  OF  3-  and  4-  ELECTRON 
OPERATORS  BETWEEN  DETERM  I NANTAL  WAVEFUNCT I ONS . 

Let  Q  be  a  product  of  orthonormal  spinorbltals  (13) 

a 

Then  the  de termi nan ta 1  wavefunction  can  be  written  as 
det  Q  =  AQ 

where  A ,  the  ant i symmetri zer  is  given  by 

A  =  (N!  r1'1  I  ( -l)p  P 

p 

and  the  P  are  the  operators  which  form  N!  different 
permutations  of  the  subscripts  of  the  <f>.  . 

The  expectation  value  of  a  quantum  mechanical  operator 
that  commutes  with  the  an t i symme t r i ze r  can  be  shown  (22)  to 
be 


<0>  =  < AQ | 0 1 AQ>  =  L  ( -1 )p  <Q | 0 1 PQ>  (1-1,1) 

P 

Let  0  kv,  be  an  operator  that  operates  on  m  electrons.  Then 
only  permutations  belonging  to  a  symmetry  group  Sn  such 
that  n  m  will  contribute  to  the  expectation  value  of  0m. 
EXAMPLE: 

Let  4>(  i  )C^( j  >cj)  (k)(j)(l)  be  a  product  of  orthonormal 
spinorbitals  and  let  the  de te rmi nan ta 1  wavefunction  be 
given  by 
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D  =  AKj>(ixj>(j)4>(k)4>(l)> 

Then  the  expectation  value  of  an  operator  0  ,l*  is  given  by: 

<0”3>  *  (-l)p«j>(i;l  )(j>(  j ;  2  )<Jk  k;3)<^();4)|0l,J| 

P<^>(  i;l)4U;2)c|)(k;5)<i>(l;4)> 

Let  P  =  (1  234)  [for  an  explanation  of  this  notation  of 

permutations  see  (23)]  then  this  particular  term  is  given 
by 

<4>(  i  j;  2)<j)(k;3)<£(  1;4)  |0  123  |cjx  1 ;  lxjx  i;2)(f>(  j  ;  3  )(^>(  k;  4 )  > 

-  <cj)(  i;l)(J)(  j;2)(jxk;3)  |0  |(j)(  1  ;l)(fx  i;2)(j)(  j;3)> 

«j)(  1:4)  |(j)(  k;  4 )  >  =  0 

s  i  nee 

«J>(1 )  |<j>(k)>  =  cflk 

Therefore  the  expectation  value  of  the  3-  and  4-electron 
operators  can  be  written  as 

=  ]Ti<j<k  0  and  Qtf  =Xi<j<k<l 


are  expressed  as 


. 
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and 


<0¥>  =  L  i  <  j  <  k<  1  (-l)p<<^)(  i  ;  1)<^X  j  ;  2)^»C  k;  3  )<^>(  1  ;4)  |0'ziy  | 


Since  there  are  6  elements  of  S3  and  24  elements  of  $f,  it 
does  not  seem  fruitful  to  carry  the  expansion  further  as  in 
the  case  of  the  2-electron  operators  and  to  give  each 
permuted  integral  a  special  name  and  a  special  symbol  (such 
as  J j j  and  in  the  2-electron  case). 
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APPENDIX  I  I  . 


Attention  should  be  drawn  to  a  property  of  the 
integrals  when  P  is  either  a  3-cycle  or  a  4-cycle  permut¬ 
ation,  when  these  integrals  are  subjected  to  a  variation. 
An  example  will  better  clarify  this  pa r t i cu 1  a r i t y  than  a 
general  discussion. 

Consider  the  particular  term 


where  P  =  ( 1  2  3).  Variation  of  the  particular  orbital  (j)L 
yields: 


i  <  j  < k  <cTc{>(  I ;  1){ cf>(  j;2)<|><k;3)  10  |cj>(  k;  !)<}>(  i  ;2)> 


♦complex  conjugate 


in  the  SCF-forma 1 i sm  the  expression 


contributes  towards  the  F-matrix  connected  with  the  orbital 


But  this  operator  is  not  necessarily  Hermitian, 


i  .  e . 
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i4C  J  ;  2)<4><  k;  3)  |0  123l<£(k;l)4)(j;3)  }f  * 

{<j>(  j;2)<f>(k;3)  !0  '**  |<|>(k;  lX^C  j;3)3 


i n  genera  1  . 

This  non-hermi t i c i ty  has  to  be  accounted  for  by  a 
suitable  averaging  process. 

EXAMPLE: 

Let  cj>U)  =ls  <j)(  j )  =  2s  <^(k)  =  3d°  .  Let  each  of 
these  orbitals  be  expanded  into  a  suitable  set  of  basis 
functions,  e.g. 


Is  =  ^—i  c(  Is;  I )  'X  ( s;  1 ) 

2s  =  ^  i  c(  2s;  i )  y.  (  s;  i ) 

3d”  =  c(3d;  !)  X  (d°;  i ) 

then 

{<j>(j;2)<fXk;3)  10'”  tfa  k;  1  )<fx  j ;  3)3  - 

A  i ,  j  ,  k,  1  C  c(s;l)c(s;j)c(d;k)c(d;l) 

<X(s;m)X(s;  i  )X(d°;k)  |0  |X(d”;  1  )X(s;n)X(s;  j  )>7 


whereas 


;  n) 
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(4>(j;2)4ck;3)  |0  tu  |c£(  k;  1  )<}>(  j  ;3  )Vm  = 

i / j  ,  k, 1  £c(s;l)c(s;j)c(d;k)c(d;l) 

<7.(s;m)%(s;  i  )T(d° ;  k )  1 0  1  «  |)[(  d  *;  1  )X(  s ;  n  )T(  s ;  j  )  >  J 

The  summations  over  the  expansion  coefficients  are  the  same. 
The  operator  0  113  is  given  by 

0  =  2*[hx(r  t1)-'  +h2-(r/a  )“'  +h3  (r  T*  7  +  (r/2r/3r' 

(r  13  r  )“*  +(r  u  r  23  )“'  +(  r  L3  r  «  )"'  +  (  r  13  r  13  )“'  +(  r  2J  r  '*  )“' 

This,  applied  to  the  particular  case  above  yields  for  the 
first  express i on 

I  i,j,k,l  ^c(s;i)c(s;j)c(d;k)c(d;1) 
*[<X(s;m)|h|X(d°;1  )  ><^(  s;  i  )7^Cd";k)  1 1/r  13  IV  Cs;n)J^(s;j)> 
+<X(s;i)|hp(s;m)><)'(s;n)lt(d‘’;k)|l/r'J  IJfCd” ;  1  )  f(s ;  j  1  > 
+  <  ;k)  |h|l(s;  j  )  >  <t(  s ;  n )):( s ;  i  )  1 1/r  '*  I7(d°;  1  )X(s;m)> 

+  <X(s;i)X(d0;k){jf(s;n)lX(d0;l)jX(s'',,1)Xfslj)'> 

+  <Tt(d*;k)X(s;i){XCs;n)  lX(d  1  Rjt(s;m)?:(s;  j  )  > 
+  <X(s;n)XCd»;k){  XCs;  i  )  I  %<.s;  j  )^(d  1  )X(s;  j  ) > 

+  <X(d°;k)XCs;nHy(s;i  )  I  2(s;m)}  XCs;  j  )X(d°;  1  )> 
+  <X(s;nrX(s;I){  *(d*;k)  I  }C(s ;  j  tf^Cd*  ;  1  )%( s;m)> 

+  <X(s;  i  )  X(s;n}f>C  ( d*  ; k)  |X( s;  j  )J  X(s;n)X<d°;  1  )>Jj 


and  for  the  second  expression 
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£c(s;i)c(s;j)c(d;k)c(d;l) 

*  t<X(s;m)  |h|T(d0;l  )><£(s;  i  )£(d°;k)  |l/r  u  iy( s ; n)  £(  s ; j ) > 
+  <7CC  s;  I  )  |  h|XCs;n)X^(s;m)X(d°;  i  )  |l/r  n  |  ^(d° ;  1  ) %  s ;  j  )  > 
+  <X(ciD  ;k)  |h|  Jt(s;  j  )><r(s;m)£(s;  I )  1 1/r  '*  |%(d*;  1)£(s;n)> 
+  <£(  s ;  i  )£(  dc  ;  k)(  £( s  ;m)  | X  C  ;  1  )}  s;  n)£(  s ;  j  )  > 
+  <7.  ( d 0  ;  k  TjU  s ;  i  )[  %( s ; m )  IT  ( d*  ;  1  )}  s ;  j  )^ ( s ;  n )  > 
+  <7f(s;j)'X(d°;k){XCs;i  )  |^(s;  n)J  y(d*  ;  1  >T(s;  j  )  > 
+  <7CCdtf;k)X(s;  j  ){X^s;  i  )  |  y(  s;  n  )}^(  s;  j  )  ^(d*;  1  )  > 
+  <^(s;m)X(s;i  )  f^Cd  <>;k)  I  %(.  s;  j  )})C  (d° ;  1  )£(s;  n)  > 
+  <X(s;  i  )T(s;m){;T(d*;k)  l£  (s;  j  )}  £(  s;m)£  (d°  ;  1  )>JJ 

where 

<%(  s ;  i  )X  ( d  ‘ 5  ;  k )  {  %  ( s ;  m )  I X  ( d°  ;  1)  J  XC  s ;  n )  £(  s ;  j )  > 

symbolizes  the  integral 

fifa  s;  i  ;  r  1  )/[(  s;n;  rL  )X(  d  k;  rx  )X  (  s ;  j  ;  r  L)£(s;m;  ri  )Zcd°  ;  1  ;  ri  ) 

/(r/ar1?)}  drxdrxdr3 


It  can  be  seen  that  the  two  expression  are  different. 
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APPENDIX  III. 

THE  CONSTRUCTION  OF  L-S  EIGENFUNCTIONS. 

This  appendix  describes  how  one  can  obtain  a 
wavefunction  (p(1 s+l:l)  belonging  to  a  certain  configur¬ 
ation  expressed  as  a  sum  of  slators/  such  that  this 
wavefunction  is  an  eigenfunction  of  the  operators  Li/Li./S'2/ 

C 


L*<£(2s  +  1:  1  )  =  1  (  1+1)<£(2s  +  1:1  ) 

L,<f>(2s  +  l:l)  =  ml<£(  2s  +  l :  1 ) 

S*<^>(2s  +  l:l)  =  s(s+l)0(2s+l:l ) 

S^(2s  +  1:  1  )  =  ms<J)(  2s  +  l :  1  ) 

This  discussion  is  based  upon  a  suggestion  by 
Schaeffer  and  Harris  (17)/  but  it  is  written  with  the  aim 
to  particularize  and  clarify  some  points  important  to  the 
present  work. 

To  aid  the  reader  not  familiar  with  the  concepts/  a 
specific  example  ( p*  *S)  is  given  at  the  end  of  this 
append i x . 

As  is  well  known  (22)  the  operation  of  the  L  and 
operators  can  be  expressed  as: 

SgD  =  l/2(nrf-np)D  =  !',SD 


8n 


L,D  =  Xi  =1, 


N  ml  *  D  =  MJ) 


T 

S*D  =  l  t-  +(l/4)t(n.t-n(J)i+2n^+2n J]  D 


LaD  =  {L-L++Lj(Lj.+  1)]D 


wi  th 


L 


1  i  =1, N  £  L-  ( i 


)} 


Each  slator  is  automatically  an  eigenfunction  of  L * 
and  St. 

To  obtain  a  linear  combination  of  slators  which  is  an 
eigenfunction  of  L1-  and  Sa,  one  collects  all  slators 
belonging  to  the  configuration  in  question  which  have  a  L* 
eigenvalue  of  ml=l  and  a  S2  eigenvalue  of  ms=s  into 
a  vector 


d  =  ( D ±  D  *  D1  . DH) . 


One  then  forms  the  matrix 

[LS]  =  df(  LA  +kS*)d 


and  diagonalizes  it.  A  proper  choice  of  k  gives  a  well 
spaced  eigenvalue  spectrum.  By  including  only  slators  with 
ml =i  and  ms=s  one  has  assured  that  the  lowest  eigenvalue  a1 
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of  the  matrix  [LSI  is 

ax  >/  ml  (ml  +1)  +k*ms  (ms  +  1) 

If  the  equality  holds,  then  the  eigenvector  associated  with 
this  eigenvalue  Is  the  required  linear  combination.  If  for 
more  than  one  eigenvector  this  equality  holds,  one  has  a 
case  of  degeneracy.  If  the  equality  does  not  hold  then  no 
linear  combination  of  slators  for  this  configuration 
possesses  the  required  symmetry. 

From  the  linear  combinations  with  ml=l  and  ms=s 
one  obtains  all  linear  combinations  with  UmU-1  and  s^ms^-s 
by  repeatedly  applying  the  operators  L~  and  S ”. 


'  '  ■ :  •  V  M 

. 


82 


The 

EXAMPLE  (p*  iS) 

distinct  slators  for  this  conf I gura 1 1  on  are: 

D 1  = 

|p+1(l)^(l)  p-  (2)^(2)  |  =  IF"*  p-'l 

D1  = 

|p+,(l)^(l)  p-(2)^(2)|  =  |p+'F^'l 

D3  = 

|  p  °( l)o«.  ( 1)  p°(2)/a(2)|  =  !p0F*I 

where  the 

two  vertical  bars  designate  a  determinant  i.e. 

|p-'p+,|  =  p"'  (l)*((l)*p  +'(2)/*(2)  -  p“'  (2M(2)*p+'  (1)/3(1) 


Operation 

with  the  operator  L*+Sa  gives  the  result: 

Sa  D  A 

=  S*  |  P1"1  P  ~M  =  |  p  +'  p-'  |  +  |  p  +l  p  “*  |  =D  3  +D  ‘ 

L1  D1 

=  L*  |  P  +  l  P  -  1  =  [L-  L<-+  LjtLj  +  l)]  IP^P  1 

=  L'L4-  Ip7'  p"  l  +  o*lF7rp-'  1 
*  ^L'(1)  +  L"(2)1*[lM1)+L+(2)7  I  p7  p-1  1 

=  [L-(l)  +  L-(2)l  |F7,P°I 

=  I  P°P°  |  +  1  P  +  ‘  p-'  1  =  -d3+dx 

Therefore 


( L1  +  Sl  )D‘ 

=  2Di+D*‘-D* 

Slmi  1  ar  1  y 

(  L1  +  S1  JD1 

=  2DX  +D^  +  D1 

=  2Da-Di+Di 

.  I 
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Since  the  relationship  <D*|Da>  =  c/^  holds,  the  mat  r i x 
[LSI  Is  easily  seen  to  be: 


1  -1 


\ 


1  2  1 


-1  1  2 

V.  ' 


The  matrix  of  eigenvectors  is  given  by 


1/  (2  -1/  (3  -l/lf6 
l/f2  1/1/3  -l/f6 

0  -l/l/3  2/(5 

\  J 

with  the  eigenvalues  3,0,3.  The  normalized  linear 
combination  of  slators  for  the  configuration  p^  and  the 
state  1S  is  therefore  : 


(brs)  =  (i/iT3)(-d1+d1-d3) 


'  C  r  !  *•  4  n  f 


"  '  '  *  ■  n !  ,< 
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APPPENDIX  IV. 

EXTENSION  OF  THE  H I NZE-ROOTHAAN  FORMALISM  TO  THE  CASE 

OF  3-  AND  4-ELECTRON  OPERATORS. 

The  F-matrix  connected  with  each  orbital  is  given  by 
eqn.  (3-17).  Following  the  derivation  of  Hinze  and  Roothaan 
one  computes  a  correction  matrix  to  the  F( n, 1 ) -mat r i x  by 
considering  all  first  order  changes  in  the  F( n, 1 ) -mat r  i  x 
which  are  caused  by  a  change  of  the  vectors  cCn^l),  where 
n'  runs  over  all  orbitals  c(n',l)  that  belong  to  the 
symmetry  1 . 

Using  eqn.  (3-17)  one  writes  the  correction  matrix  as 
(we  assume  that  the  orbitals  are  in  real  form): 


>1  >  ■  -r  v 

,  - 

♦ 


+  2* 


a 


1=1 


i 


city-  ±t<5r 
(\*f  fid 


r,s 

t»u 

v,w 


pT>t  It  pTI<  Lf  pTlt  It  pTl't  l*  f  f  fSj 

Lt  Lu  U  tw  O^OfJi  ClijL 


/  a  (pci/rs/tuivw) 

L  ft  f\  ?r  Sf 


Equation  (52)  of  ref.  (21) 


cfF" €•'  =  *■  I  £',<  jc«' 

r*  TV 


still  holds,  but  the  definition  of  the  L-matrix 


has  changed  to: 


V31 

CT^mVjpq 

V 


j=1  **(i  CS  ' 

i3 


Pv(PT;q s) 


1 


k=1  < t.+p  r,s 

+u 

l'u 


:fcf-cf‘cf“ ^JrA  cflU 


?;[V«  s\r 


2* 


a 


1  =  1  ot^P’r  I'S 
d*f**°r  t/U 
fid  v ,W 
f-td 


C?ltCstlt  Ct!l'  C’i*15  Cv' l'  C$ L'  cCfn  cTfJ I  cQl 


L 


a  (pr;qs;tu;vw) 

?e‘  §*e  §r  St 


With  this  definition  of  the  L-matrix  the  formalism 
of  (21)  can  proceed  unchanged  to  its  end. 
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APPENDIX  V. 

EXAMPLE:  Be  Is*  2s  3d  *D 

Equation  (3-1)  for  this  configuration  Is  given  by 

^(‘O)  »  0T2)-'  (j  1S1S2S3T*1- 1  -  |  Is  is  2s  3d |7 
=  (.{ 2)" '  CD'  -D1) 


The  expectation  value  of  the  operator  0  eqn  (3-6)  is: 

<0>  =  (1/2)<D1|0|D1>-2*(1/2XDA|0|DX>+(1/2)<DA|0|DU‘> 

This,  rewritten  in  the  form  (3-7),  yields: 

<0>  =  (1/2)  <lsls2s3d  4Z|0|  Z(-l)f  p  Is  Is  2  s  3d 41  > 

<lsfs2s3d  42  |  0 1  ^(-l)f  P  lsTs2~s3d  42  > 
+  (1/2)  <lsls2s3d+i  |0|2(-l)p  p  Is  Is  2s3d  42  > 


Inserting  the  explicit  form  of  the  operator  0  the  form 
( 3-9 )  Is  obta i ned . 

<0>  =  (1/2)  <ls|Ox| ls>  +  <ls  JO1 |ls>  +  <2s|01 | 2  s  > 

♦  <3d**  |  0 1  3d~^x  > 

+  <lsls  |0ai  lsls>-<lsfs  |0  x\  lsls>+<ls2s  |  0*|  ls2s> 
-<ls2s|0*|  2  s  ls>  +  <  1S3CT42  |0  |  ls3T41  >-<15  3^  |  02  |  3d42  ls> 


. 

- 


-  )  I  |  .  ;  > 


i 


"  '  I  '  >*v  |  .;r>. 
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+  <ls2s|Oz|  Is2s>  +  <ls3d  +t  |  Ol|  ls3d^- >-<ls3d^l-|  Oz|Td  4aTs> 
-<ls2s  1 0  *■  |  2sls>+<2s3d4Z|0i|  2s3T4*>-<2s3cT4l|  Ox 1  3d41  2s > 

+  <  lsls  2s  |  0  3  |  Z(-l)rP  Is  Is  2s  > 
+  <lsrs3d^|05  |  Z  (-l)f  P  lsls3d^> 
*Kls2s3d  4^|03 1  Z  (-l)f  P  ls2s3Z4z> 
+<ls2s3dTz|0J|  Z  (-l)p  P  Is  2  s  3"cP*  > 
+  <  Is  is  2  s  id**  |  0 4  |  Z  (-IT  P  lsls2s3d+*> 
+  the  terms  arising  from  <Di|0|Da->  and  <Dz|0|Dz> 


Collecting  all  the  identical  integrals  and  summing 
their  coef f i c i ents /  yields  the  eqn  (3-10): 


s 

2<  Is 

|04|  ls> 

+ 

<2s 

|0* | 2s> 

+ 

< 3d 

|  0 1 1  3d  4 2> 

+ 

<  Is  Is 

|0*|  Is  1  s  > 

+ 

2<ls2s 

|04 | ls2s> 

- 

<  Is  2s 

|0A| ls2s> 

+ 

2<ls3d  +a 

|  0  *  |  Is  3d  4Z> 

- 

< Is  3d 

|0Z|  3d  nls> 

+ 

<2s3d  +i 

|0A| 2s3d +  z> 

+ 

< Is  Is  2s 

| 0  3 1 Is  Is  2s> 

- 

< Is  Is  2s 

| 0  s | 2s  Is ls> 

+ 

<  Is  Is  3d  4 1 

|  0  3 1  lsls3d  42> 

- 

<lsls3d 

|03|  Is  3d  4Zls> 

+ 

2<ls2s3d 

|0  3|  Is2s3d  4i> 

I 


:  *  )  «•  V  ,  '  n  •  r  -I  ■  li 
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<ls2s3d  ^|03|2sls3d*-2  > 
<ls2s3d  42-|0*|3d4V2sls> 

+  2<ls2s3d  +M0*  |  Is  3d  41  2s> 
2<ls2s3d+z|03  |  3d  4*  ls2s> 

+  <lsls2s3d  42 1  0  *+|  Isls2s3d47> 
<lsls2s3d  **■  |  OH  |  Is  3d  41  2  sis  > 
<lsls2s3d  +t-|0^|2slsls3d+2> 
+  2<lsls2s3d  +2-|  OV  |  2s3d  42  Is  ls> 
+  <lsls2s3d  42 1 0  * | Is ls3d 4i  2s> 
-  2<lsls2s3d  *l  |  0  Is  3d  41  Is  2s> 
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THE  PROGRAM. 

It  seems  to  be  extraordinarily  difficult  to  describe 
intelligently  a  computer  program  of  some  complexity  by 
words.  We  will  instead  present  the  logical  flow  of  the 
program  in  form  of  a  flow  diagram.  This  diagram  with  its 
annotations  and  with  the  listing  of  the  program  at  the  end 
of  this  appendix  should  facilitate  the  understanding 
and  use  of  the  program.  After  the  flow  diagram  a  section  is 
concerned  with  the  listing  of  all  routines  that  have  been 
used,  except  the  routines  which  are  part  of  publicly 
available  libraries.  This  listing  carries  short  annotations 
as  to  where  and  how  the  routines  are  employed  and  it  is 
arranged  In  nearly  the  same  order  as  the  listing  of  the 
programs.  At  the  end  programs  which  have  been  used  in 
preparing  this  thesis  have  been  listed. 


. 

' 


-  "  "•  ' 


. 


n  '  I 


ROUTINES 

USED 


STOP 


I  N  PUT 


▼ 


V 

/1-electrA  ONEINT 

integr.  )  ONE  I 

1 

'  \  RENORM 

norm’l'zn)  SOMS 


REMARKS 


SCF-PR06RAM 


no. of  orbitals 
no. of  basis  fns. 
method,  charge 
energy, orbital  exp. 
starti  Tig  vectors 
INTEGRALS 


matr  Ices 


ISYM-. 

1  s- orbital 

2  p-  H 

3  d  -  " 


to  zero 

V 


V 


2-el. mat. 


ROUTINES 

REMARKS 

USED 

thickly 

ONEEL 

outli  Tied 

SYMCHE 

routines 

are 

TWOEL 

diagrammed 

TWINT 

SPLIT  2 

separately 

THREEL 


FOUREL 


COMBJN 


HINZE 

SOLVER 

GAUSS 


REMARKS 


ROUTINES 

USED 


OPTIM 
CHANGE 
POLY  NO 
SCFCYC 


entry 


take  1st  ini. 


add  to 

FH1&FHH1 

matrices 


I 


C  ENTRY 


▼ 


ROUTI NES 
USED 


SPL IT2 


TWINT 

REPI 

HR 


el.  mat. 


ROUTINES 

USED 


I 


SYM34 


SPLIT3 


ROUTINES 

USED 


SYM34 


SPLIT  4 
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ROUTINES  TO  COMPUTE  L-S  EIGENFUNCTIONS 


NAME 

CALLED  FROM 

PURPOSE 

CODE 

MAIN 

LSQH 

LSQT 

VECT 

MAI  N 

Routines  to  set  up  the 

VECT 

EXPAND 

MAIN 

different  Slators  belonging 

EXPD 

DETVAR 

MAI  N 

to  a  given  configuration 

DETV 

RESET 

MAI N,  CHECK 

and  state. 

RSET 

CHECK 

MAI  N 

CHCK 

OUT 

LOP 

Output  rou t i nes 

OUTP 

SURE  IB 

OPERAT 

SHRB 

OPERAT 

MAIN 

Subroutines  determining 

OPE 

LSSQUA 

OPERAT 

the  matrix  elements  of 

LSS 

COMP 

LSSQUA 

<  <j)  |  L2  ♦  k*S  2  |  <£>  > 

COMP 

LMINUS 

MAI  N 

Computing  the  states  MS-1, 

LMI  N 

SOP 

LMINUS 

ML-1  from  MS, ML. 

S-OP 

LOP 

LMINUS 

L-OP 

SEARCH 

SOP,  LOP 

SRCH 

• 

- 


*  '  > 


■ 

! 
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NAME 

CALLED  FROM 

PURPOSE 

CODE 

INTCOE 

MAI  N 

The  Slators  are  compared 

1  NTH 

1  NTT 

FI  LL 

MAI N/ LOP 

for  each  value  of  ML  and 

FI  LH 

LMINUS 

FI  LT 

SORT 

INTCOE 

MS  and  the  1,2,3,  and  4 

SRTH 

SRTT 

COMP1 

INTCOE 

electron  Integrals  to  be 

COMH 

COMT 

ONE 

SORT 

used  as  Input  for  the 

ON  EH 

ONET 

TWO 

SORT 

wave-function  routine 

TWOH 

TWOT 

THREE 

SORT 

are  computed. 

THRH 

THRT 

FOUR 

SORT 

FORH 

FORT 

SIG 

FUNCTION 

Determines  if  a  permut¬ 

FSIG 

ation  Is  odd  or  even. 

DEI  GE 

OPERAT 

Jacobi  d i agona 1 i zat I  on 

IBM-SSP-Routi ne. 

■ 

• 

•  '  ■  :  i  : 
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ROUTINES  TO  COMPUTE  SCF  WAVEFUNCT I ONS 


NAME 

CALLED  FROM 

PURPOSE 

CODE 

MAI  N 

MAI  N 

1  NPUT 

MA 1  N 

Reads  In  the  starting  vectors. 

INPT 

Integrals,  and  Indicates  the 

minimization  to  be  done. 

ON El  NT 

MAIN 

Sets  up  one  electron  Integrals 

ON  El 

RENORM 

MAIN 

Normalizes  the  vectors. 

NORM 

ONEEL 

MAIN 

Sets  up  one  electron  matrices. 

ONEE 

TWO  EL 

MAI  N 

2 -el ectron-mat r I ces . 

TWOE 

TWI  NT 

TWOELE 

2-electron-I ntegrals. 

TWI  N 

THREEL 

MAI  N 

3 -el ectron-matr i ces . 

THRE 

TINT3 

THREEL 

3-electron-lntrgrals. 

TINT 

DENS3 

THREEL 

3-el ectron-dens I ty  matrices. 

DNS3 

. 

. 

* 

JT 

. 

- 

,  - 
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NAME 

CALLED 

FROM 

PURPOSE 

CODE 

FOUREL 

MAIN 

4- el ectron-mat ri ces. 

FOUR 

FOINT 

FOUREL 

4-electron-integrals. 

FOI  N 

DENS 

FOUREL 

4-el ect ron-dens I ty  matrices. 

DNS4 

LI  ES 

DENS 

Reads  In  the  2-electron- 

integrals  required  in  FOUREL 

LI  ES 

Dl  AGO 

MAI  N 

D I  agonal  1 zat I on  of  4-electron- 

mat  ri  ces . 

Dl  AG 

COMB  IN 

MAI  N 

Combines  the  F-matrices  accord¬ 
ing  to  which  minimization  is 

des i red . 

COMB 

CNVRGC 

MAIN 

Checks  if  vectors  converge. 

CONV 

AITKEN 

MAI  N 

Ai tken -Delta- Acceleration. 

AI  TK 

uts | PRPRTS  MAIN 

Computs 

value  of  <l/r>  etc.  PROP 

HINZE 

MAI  N 

Combines  the  L  and  F  matrices 

HINZ 

so  that  G-superma t r i x  and  G 
supervector  for  computing  c 
are  obta i ned. 


SOLVER  HINZE  Gaussian  elimination  with  SOLV 

pivoting  of  row  and  columns. 


GAUS 


SOLVER 


GAUS 


-  .  . . 

J  ' 

* 

1  r;i  a'  * 

. 

f  •• 

. 

• 

■  ■(  .  ■  • 

'  *  \  f '  ■  -  L 

:  ■ 

i  M< 

■ 
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NAME  CALLED  FROM  PURPOSE  CODE 

ENER  MAIN,  COMB  IN  Computes  <H>  and  <H  >  ENER 


EXHH  MAIN,  COMB  IN  respec 


OPTIM 

MA 1  N 

Opt l ml 

CHANGE 

OPTIM 

Aiding 

POLYNO 

OPTIM 

A 1 d i ng 

SCFCYC 

OPTIM 

A! d I ng 

OUTO 

MAI  N 

Va  r l ou 

OUTOl 

MAI  N 

OUT1 

MAI  N 

OUT  2 

MAI  N 

OUT  3 

MAIN 

OUT4 

MAI  N 

OUT5 

MA  1  N 

OUTPUT 

MAI  N 

1 ve 1 y . 

EXHH 

atlon  routine. 

OPTI 

optimization. 

CHNG 

opt iml zat 1  on. 

POLY 

optl  ml  zat  1  on. 

SCFC 

output  routines. 

OUT1 

OUT1 
OUT  1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT2 


. 

- 
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NAME 

CALLED  FROM 

PURPOSE 

CODE 

SPLI T2 

TWO  EL 

A1  1 

these  routines  reorder 

SPLI 

SPLIT3 

SYM34 

the 

i npu t- 1 ntegra  1  s  so  that 

SPLI 

SPLIT4 

SYM34 

the 

indices  of  the  expansion 

SPLI 

SYMAS1 

SPLIT2,  SPLIT3 

vectors  and  the  Integrals 

SYA1 

SPLI  T4 

over 

the  Slater  functions 

SYMCHE 

TWOEL/  SYM34 

coincide. 

SYCH 

SYMAS2 

SPLI T2,SPLIT3, 

SYA2 

SPLIT4 

SYMAS3 

SPLIT3,  SPLI T4, 

SYA3 

TW 1  NT 

1  DNOM 

SPL 1 T2,  SPLIT3, 

I  DNO 

SPLIT4 

SYM34 

THREEL/  FOUREL 

SYA3 

■  i  - 

...  j  . 

V ' 
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NAME 

LOG  I  OU 


DEI  GE 

SOMS 

MULTS 

VMULT 

ONE  I 

HR 

REPI 

ANGLI 

UF 

VF 

FIDA 
FI  DB 
ENM  I 


Routines  Not  Programmed  by  the  Author. 

PURPOSE  CODE 

(See  also  the  table  with  SYSTEM-SUBROUTINES.) 


Direct 

access  routine 

LIOU 

Author 

Larry  Thiel,  Computing 

Centre 

Un  1  ver; 

s 1 t y  of  A1 berta. 

Jacobi 

di agonal  1 zat Ion 

Author 

IBM/SSP 

Schml dt-or thogona 1 1 zat i on 

SOMS 

Schml d 

t  matrix  multiplication 

MULT 

subrou 

t i nes . 

VMUL 

51 ater 

function  integral  routines 

ON  1  N 

HRI  N 

REPI 

ANGI 

ANGI 

ANGI 

ANGI 

ANGI 

All  programmes  In  this  section 

by 

ENM  1 

F.  W. 

Bi rss. 

< 


.  'I  V 

. 


' 


:  * 
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NAME 

READ 

WRITE 

LOG  I OU 

POINT 

NOTE 

REWI ND 

TIME 


SYSTEM  (MTS)  ROUTINES 
PURPOSE 

e.g.  CALL  READ( I NTEG,LEN,0, LNR/2/  100) 

Used  to  read  and  write  Integrals  and  density 
matrices  from  or  to  disk. 

Used  to  determine  the  parameters  that  allow 
access  to  sepuential  files  stored  on  disk. 


Used  to  reset  the  sequential  file  used  for 
storing  the  Density  matrices  In  each  iteration. 
To  time  the  execution  of  the  program 
Routines  READ  and  WRITE  are  described  In 
FORTRAN  G  and  H  MANUAL,  May  1970,  University  of 
Alberta,  Computing  Centre. 

Routines  REWIND  and  TIME  are  described  In 
SUBROUTINE  LIBRARIES  MANUAL,  October  1970, 
University  of  Alberta,  Computing  Centre. 
Routines  NOTE  and  POINT  are  described  In 
SYSTEM  SUBROUTINE  MANUAL,  June  1970,  University 
of  Alberta,  Computing  Centre. 


. 

. 

.  ' 

* 


- 
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REAL*8  LSSQMA(52,52)/2704*0.D0/,EIGVAL(52/52),EIGVEC(52,52), 
1B(52)/F1/F2/SPIN(22) 

EQUI VALENCE (LSSQMA(l),  El GVAL(l) ) 

this  ROUTINE  IS  SET  UP  TO  CALCULATE  LS-E I GENFUNCTI ONS  OF  UP 
TO  TEN  ELECTRONS.  TO  INCLUDE  A  LARGER  NUMBER  OF  ELECTRONS 
SEEMS  SENSELESS/  SINCE  RUSSE L L-SAUNDERS  COUPLING  BREAKS  DOWN 

THE  EIGENVALUES  ARE  ON  THE  AVERAGE  ACCURATE  TO  11  SIGNIFICANT 
FIGURES.  IF  HIGHER  ACCURACY  IS  DESIRED/  CHANGE  STATEMENT  5  IN 

SUBROUTINE  'BEIGE1  . 

THE  ROUTINE  CAN  HANDLE  STATES  WHICH  ARE  REPRESENTED  BY  UP  TO 
52  S  LATE RDE TERM  I N ANTS .  IF  A  LARGER  NUMBER  OF  5LAT0RS  ARISE/  THE 
FOLLOWING  CHANGES  HAVE  TO  BE  MADE 

CHANGE  THE  DIMENSIONS  OF  LSSSQMA, E I GVAL, E I GVEC, B, SLDV, NUMDET 

IN  THE  MAIN  PROGRAM. 

CHANGE  THE  FORMAT  STATEMENTS  IN  THE  SUBROUTINE  SHREIB 
CHANGE  DIMENSION  OF  SLDV/NUMDET  IN  SUBROUTINES 
DETVAR 
OPE RAT 
LSSQUA 
COMP 
OUTPU 

INTEGER*  2  DMAT(4,100)/  CONFIG  (  33),  STATE  (2)/  l/r.  ,  (20)/ 

1ICOMV  (20)/  ISTA  (20),  SLDV  (  5 2, 4,  20 ) , NUMDET( 52,  20 ) , CMAT( 4, ^  ■ ) 

3, LINE(22)/STTE(2) 

INPUT  IS  AS  FOLLOWS:  r ^  _ 

M  THE  NUMBER  OF  UNEQUIVALENT  STATES  TIMES  3 

N  THE  NUMBER  OF  ELECRONS  n 

CONFIGURATION:  1S1  2P2  3D1  =  01  00  01  02  01  02  03  02  01 

STATE  3P  =  01 

PUT  M,N  CONF, STATE,  AS  CONTINUOUS  14  INPUT 
IVEC  CONTAINS  THE  POSITION  FOR  SLD  IN  DM AT 
ICOMPV  CONTAINS  THE  MAXIMUM  IVEC  CAN  REACH 

AFTER  THE  STATE  WITH  M L  =  L  AND  MS=3  HAS  SEEN  ^h.PUT LD,  >-“«  [-qr'  al L 
APPL I  ED  (  IN  SUBROUTINE  LMINUS)  TO  OBTAIN  ALL  POSSIBLE  L  F.la  ^ 

VALUES  OF  ML  AND  MS. 

THE  OUTPUT  IS  WRITTEN  ON  U N 1 T ( 6 ) 

intcoe  computes  the  integrals  obtained  by  operating  with  ode-, 

TWO-/ THREE-/ AND  FOUR-ELECTRON-OPE GATORS 
IT  WRITES  THE  RESULTS  ON  UN  I T ( 8 ) 

1  READ( 5, 901, END-23 )M, N, (CONF I G( Jl) , Jl-1, M) , (STATE C J1 ) , .  11  =  1,2) 

DO  2  J1  =  1,52 
DO  2  J2  =  1,52 

2  LSSQMA  ( J 1,  J  2  )  =  0.D0  ominp  ,,- 

CALL  VECT( I VEC, I STA, I COMV,M, CONF I G,  ) 

CALL  EXPAND  ( STATE, CONF I G, DMAT, N ,K)  n  up  AL L  possiBLE 

AFTER  DMAT  IS  COMPUTED  IT  S  COLUMNS  ARE  UoED  0  ET^U  ^  STATE  COND 

SLATERDETERMI  WANTS,  WHICH  ARE  CHECK.-.  If  •  ■- 
K  =  Q 

9  CALL  DETVAR  ( DMAT, I VEC, SLDV, N, STATE, K,  !Uf  -T,  t j ) 

I V  EC  (  ID  =  IVEC  (ID  +  1 


LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
LSQH 
.  LSQH 
LSQH 
LSQH 
LSQH 
LSQH 


. 


■ 

' 


V 


. 


y 


IF  (IVEC  (ID  .LT.  ICOMV(ID)  no  TO  o 
CALL  F.FSF.T  (  I  VrC,  1 1, 819,  *29/  M,  I  STA,  *19  ) 
in  FALL  CHECK  ( I  VFC,  I  STA,  ft9  ,N  ^29-ICOrV) 

29  STTF(l)  =  STATIC  1) 

STTFC2)  =  STATE (2) 

CALL  OUTPU  (SLDV/STATE/CONFIC/K/N/&45/  0.  STTE  ) 

CA  LL  opr  TAT  ( SLPV,  LSSQMA,  K,  STATE ,  CM  AT,  N,  r  I  CVFC.  n/  ft  45  ,  II) 
CALL  FI LL(SLOV/ F IGVEC/ K/N/ II) 

CALI  I  NTCO  E(N  /  K,  ID 
45  GO  TO  1 
901  FORMAT  (20  I  4) 

23  STOP 
END 

SUBROUTINE  FILL  (SL/FIGVFC/K/ NO E,  I D 
THIS  ROUTINE  COMPRESSES  THE  SLATORS  FROM.  4-ON  TO  1-ON 

SLATOP( *,*,*)  CONTAINS  THE  COMPPESFO  INPEX  CALCULATED 

FROM  SL(*7 *, *) 

N 

L 

ML  APE  SELFEXPLAMATORY 

MS 


L  SOH 
LSOM 
LSOH 
LSOH 
LSOH 
LSOH 
LSOH 
LSOH 
LSOH 
LSOH 
LSQH 
LSOH 
LSQH 
F  I  LH 
FI  LH 
F  I  LH 
FI  LH 
FI  LH 
FI  LH 
F  I  LH 
FI  LH 
F  I  LH 
F  I  LH 


F  I  LH 


COMMON/ F  I  NT/L.VEC(3/  52  ) ,  S  LATOP(  5  2,  10)  FI  LH 

REAL *3  E IGVFC(K/ K), LVEC  F I LH 

I  NT  EGER*  2  [.(52,4,  10)  FILM 

INTEGER  SLATOR  FILM 

INPG(N)  =  (N-2 ) *9-3  FILM 

INDF(L/M)  =  L+L*L+M  FILM 

DO  10  J10  =  1,K  FILH 

no  10  Jll  =  1 / N  0  F  FI LH 

N  =  SI.(J10,1/J11)  FI  LH 

L  =  SL(J10/2/Jll)  FILM 

ML=  SL(J10/3/ Jll)  •  FILM 

MS=  SL(J10/ k,  Jll)  FI  LH 

LIN.  =  INDF  (  L,  ML  )  F  I  LH 

IF  (N  .LE.  2)  GO  TO  1  FILH 

INCOME  =  ( LML+ I  NOG (N ) ) *MS  FILH 

GO  TO  10  FILM 

1  INCOMP  =  ( LML+N) *MS  FILH 

10  SLATOR  (J10,J11)  =  INCOMP  FILH 

J22-K- I  1  FILH 

no  20  020  =  1,  II  FI  LH 

DO  20  J  2 1  =  1 ,  K  FILM 

)  LVEC(J20/ J21)=EIGVEC( J21, J22+J20)  FILM 

RETURN  FILM 

END  FILH 

SUBROUTINE  I NTCOF ( NOE 7 K, 1 1)  1  v 

PURPOSE:  1 HTH 

TO  COMPUTE  SYMBOLICALLY  THE  INTEGRALS  WHICH  ARF  OBTAINED  WHEN 
L-S-E  |  GEN  STATES  1 

YA  RIAPIFS:  INTO 

TERM:  THE  TERM SYMBOL/  EQUIVALENT  TO  STATE  I N  'LSQ*  I  NTH 


I  NT*:  ARRAYS  IN  WHICH  THE  SYMBOLIC  FORM.  OF  THE  INTEGRALS  IS  STOTFEI 


FAC*:  ARRAYS  If'1  WHICH  THC  COMPUTE  COrFFICIFNTS  ARF  STOFFP 
IMPLICIT  RF.AL*8  (A-H/O-Z)  \ 

COMMON / F I  NT/ LVEC (3/ 5 2 ) / S LATOP ( 5 2,  10)  I 

COMMON/ SUB  I  NT/FAC ( 3 ) / FAC1 ( 3/ 50 ) / FAC2 ( 3/ 100) / FAC3  (  3/  200) / F ' C4(  3  /  3  00  I HT’ 

.  )  z  I  NT  1  (  5  0  ) ,  I  r  T  2  (  4/  1 0  0 )  /  I  NT  3  (  6  /  2  0  0 )  /  I  N  T  4  (  8  /  300)/SLASHO(2  /  10/1  I  r  0  P  B  I  f-’  T !  I 


(4) 


I  NTH 
I  NTH 
I  NTH 


INTEGER  S LATOR/ S LASHO, P  I FDRR 
REAL* 8  LVEC 
I NT1 ( 1 )  =  0 
I NT2 ( 1/ 1 ) “0 
INT3C1/ 1)=0 
I NT4 ( 1/ 1 ) =0 
L I M 1  —  0 
LIM2=0 
L  I  M  3  =  0 
L  I  M  4  =  0 

WRITEC8.910) 

FORMAT ( ' 1'  ) 

WRI TEC  8,  9  08  )  (CSLATORC IA1/  IA2), I  A  2  =  1 .NOE),  IA1  =  1/K) 

WRITE (  8, 9 09  )  ((LVFO( I  A 1 ,  I  A  2  ) ,  1  A  2  =  1 ,  K ) ,  !A1  =  1/  II) 

FORMAT ('  ’,2014) 

FORMAT ( '  ' ,  1  OP  12 . 4) 

|F( I 1.0T.3)  00  TO  11 
DO  1  JB=1,K 
DO  1  JC  =J  B, K 

CALL  COM  P1(JB,J0,  I  1,  I  CODE, &1, NOE ) 

CALL  SORT ( I  COD  E, LI  Ml. LI  M2, LI  M3, LI M 4, NOE.  II 
1  CONTINUE 

WR I TF  (  8 , 9  0  0 ) L I  Ml, LI  M2, LI  M3, L IM4 
DO  7  JA  =  1, L I  Ml 

7  WRITE  (  8,  9  03  )  I  NTK  JA),  (FAC1  (  I  A,  JA  ) ,  I  A  =  1 ,  I  1 ) 

DO  8  JA  =  1, L I  M2 

8  WR I TE (  8, 9  04 ) ( I NT2 ( I  A,  JA ) ,  I  A  =  1 , 4, ( FAC2 ( I B, JA ) ,  I B  =  1,  I  1 ) 

I  F  (NOE . LT . 3 ) RETURN 
DO  9  JA  =  1.LIM3 

9  WRI  TF(  8,  9  05)  (  I  N  T  3  (  IA,JA),  I  A  =  1 ,  6  ) ,  (  FAC3  (  IA,JA),  I  A  =  1 ,  ID 
IFCNOE.LT. 4)RETURN 
DO  10  JA  =  1,  L  1  Mi 4 

10  WRI  TEC  8, 9  06)  (  I  NT4  (  I  A,  JA),  I  A  =  1 ,  8),  (  FAC  4  (  I  A,  JA),  I  A=  1,  ID 
RETURN 

11  WR  I  TE  (  8,  9  0  7  ) 

STOP 

900  FORMAT (2014) 

901  FORMAT (3D26.18) 

902  FORMAT (214) 

903  FORMAT ( 33X, I  3, 3 P  2  5. 15 ) 

9  04  FORMAT ( 18X, 2C3X, 2  I  3),  302  5. 15) 

905  FORMAT (9X, 3C3X, 21 3), 3025.15) 

907  FORMATC  '  0  1 ,  131  ('*'  )/40X,  '  MORE  THAN  THREE  LINEARLY  IMPEPENT  r  I  G  F F  M  j  T 1 1 

1NCT IONS’/  13 1(  '  *'  )  )  !  "'I',! 

END  [  " 

SUBROUTINE  C0MP1(I,J,  I  1,  I  CODE  ,  *,  ' 'OF ) 

IMPLICIT  R F A L * 8  (A-",0-Z)  ;:p  ,, 

SSSSK^iSTiIt;««'sf  &SS?  i- fSSSSSS 

. ), I NT1C50), I NT2C4, 100), I NT3(6, 200), INT4(8/ 300), SLASI  (2, 10), D I f 

♦  C  4 )  n  f . •  m 

INTEGER  SLATOR, S LASHO,  D  I  FORR  rof.u 

REAL *8  LVEC 

I  SUM-0  COMH 

I  COD F  =  0  CODI 

FACT  =  1 . 0 0  rn;  i. 

11  DO  1  JA  =  1,  NOE  rni  i, 

SLASIIO  ( 1,  JA  )  =S  LATORC  I  ,  JA) 


I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 

inti: 

I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NT1' 

I  NTH 
I  NTH 
I  f,T!l 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
I  NTH 
INTI! 
I  NTH 
I  NTH 
I  NTH 
I  NTH 


'  >  OIIS) 


1  SLASH0(2  /  JA)=SLATOR(J, JA) 

IF  (J.EQ. ! )  HO  TO  3 
DO  5  JA  =  1,  NOE 
DO  6  J  B  =  1 ,  N  0  E 

I  F  (SLASHOC 1, JA ) . EQ. SLASHOC  2/ JR ) )  GO  TO  2 

6  CONTINUE 
|CODF=!COn>F  +  l 
D I FORB ( I  CODE )=JA 
IF  ( I  CODE . GT. 4)  RETURN1 
GO  TO  5 

2  IF(JA.EQ.JB)  GO  TO  5 
I  SUM  =  ISUM+1 
IEX=SLASHO(2,  JA) 

SLASHOC  2/ JA )  =  SLASHO(2/JB) 

SLASHOC 2, JR )  =  I  EX 

5  CONTINUE 
FACT=2 . D  0 

3  DO  7  JA  =  1,  I  1 

7  FAC(JA)=LVECCJA,  I ) *LVEC ( JA, J ) *PFLOAT( ( -1 ) ** I  SUM) *FACT 
I  F ( ICODF.EQ.O)  I CODE  =  l 
RETURN 
END 

SUBROUTINE  SORTC I  CODE, L I  Ml, LI  M2, L I  M3, L I M4,  NOE ,  II) 

IMPLICIT  REAL* 8  (A-H,0-Z) 

COMMON/ FI NT/LVECC3, 52) , SLATORC 52,  10) 

COMMON  /  SUB  I  NT/FAC  (  3  ) ,  FAC1  (  3,  50 ) ,  F  AC2  (  3,  10  0),  FAC  3  (  3,  2  00),  FAC  4  (3,  30  OS  RTF 
.  ),  I  NTH  50),  I  MT2C4,  10  0,  I  NT 3  C  6,  2  00),  INT4C8,  300),  SLASHOC  2,  1 0 ) ,  P  I  FORBSRTH 


COMM 

COMM 

COMH 

COMM 

COMH 

COMH 

COMH 

COMH 

COMH 

COMH 

coi  u 

COMH 

COMH 

COMH 

COMH 

COMH 

COMH 

COMH 

COMH 

COMH 

COIN 

COMH 

SRTH 

SRTH 

SRTH 


• 

(4) 

SRTH 

INTEGER  S LATOR, SLASHO, D IFOR0 

SRTH 

REAL*3  LVEC 

SRTH 

GO  TO  (1, 2, 3, 4), ICOPE 

SRTH 

1 

DO  7  JA  =  1, NO  E 

SRTH 

C^LL  ONE  ( JA, L 1  Ml,  11) 

SRTH 

JB  L= JA  +  1 

SRTH 

IF  (JRL.GT.NOE)GOTO  7 

SRTH 

DO  6  JB=JBL, NOE 

SRTH 

CALL  TWO ( JA, JB, L 1  M2,  11) 

SRTH 

IFCNOF.LT. 3)  GO  TO  6 

SRTH 

JC  L=JB  +  1 

SRTH 

1  F ( JC  L , GT. NOE ) GOTO  6 

SPTII 

DO  5  JC  =JC  L, NOE 

SRTH 

CALL  THREE ( JA, JB, JC, LI  M3, 11) 

SRTH 

IF  (NOE.LT.4)  GO  TO  5 

SRTH 

JD  L  =  JC+  1 

SRTH 

IFC JDL.GT.NOE )GOTO  5 

SRTH 

DO  8  JP=jnL,NOE 

SRTH 

CALL  FOURCJA,  JB,JC,  JD,LIM4,  ID 

SRTH 

8 

CONTINUE 

SRTH 

5 

CONTINUE 

SRTH 

6 

CONT 1 NUE 

SRTH 

7 

CONTINUE 

S  RTH 

RETURN 

SRTH 

2 

JA=D 1 FORB ( 1 ) 

SRTH 

JB=D 1 FORR ( 2 ) 

SRTH 

CALL  TWOCJA, JB,LIM2,  11) 

IFCNOE.LT. 3)  RETURN 

SRTH 

SRTH 

DO  9  JC  =  1, NOE 

SF.TH 

IFCCJC.EQ. JA).OR. CJC.Q.JB))  GO  TO  9 

SRTH 

SRTH 

SRTH 

CALL  THREE ( JA, JR, JC, L 1  M3, 1 1) 

IFCNOE.LT. 4)  GO  TO  9 

JD  L  =  JC  + 1 

I F ( JD L . GT . NOE ) GO  TO  9 
DO  10  JD=JDL,NOE 

I F(  (  JD  .  EQ. JA) . OR . ( JD . EQ. JB ) . OR. ( JD . EQ. JC ) )  GO  TO  10 
CALL  FOUR(JA/JB/JC/JD/LIM4/ II) 

10  CONTINUE 
9  CONTINUE 

RETURN 

3  JA=D I FORB ( 1 ) 

JB=D I FORB( 2) 

JC  =  D I FORB ( 3  ) 

CALL  THREE(JA/JB/JC/LIM3/ II) 

IFCNOE.LT. 4)  RETURN 
DO  11  JD=l/NOE 

IF((JD.EQ.JA).OR. (JD.EQ.JB).OR. (JD.EQ.JC) )GOTO  11 
CALL  FOUR(JA/JB/JC/JD/LIM4/ II) 

11  CONTINUE 
RETURN 

I  DF1  =  D I FORB ( 1 ) 

I D F 2  =  D I FORBC  2  ) 

I DF 3  =  D I FORB ( 3  ) 

I  DF4=D I FORB ( 4 ) 

CALL  FOUR ( IDF1, IDF2, IDF3, IDF4/LIM4/ II) 

RETURN 
END 

SUBROUTINE  ONE( I , L I  Ml,  I  1) 

IMPLICIT  REAL*8  (A-H,0-Z) 

COMMON /F INT/LVECC3/52)/ SLATORC  52, 10) 

COMMON/ SUB  I NT/FAC(3),FAC1(3,50)/FAC2(3,100)/FAC3(3,  20  0) 
. ), INTI (50), INT2C4, 100), I NT3 (6, 200), I N  T  4  (  8 ,  3  0  0  ) ,  3  L  A  S  M  0  (  2 
.(4) 

INTEGER  S  LATOR, S LAS HO, D I FORB 
REAL*8  LVEC 
KB=IABS(SLASHO( 1,  I  )) 

DO  1  JA  =  1, L I  Ml 
LI  =JA 

IF  ( INTl(JA).EQ.KB)  GO  TO  2 

1  CONTINUE 

L I M1=L I Ml+1 

IF  (50.LT.LIM1)  GO  TO  3 
I NT1 ( L I M 1 ) =KB 
DO  4  JA  =  1,  I  1 

4  FACK  JA,  LIM1)=FAC(  JA) 

RETURN 

2  DO  5  JA  =  1/  I  1 

5  FAC1 ( J A,  LI ) =FAC 1 ( JA, LI  )  +  FAC(JA) 

RETURN 

3  WRITE(8/900) 

STOP 

900  FORMATC ' 0 ' , 131C ' * ' )/ 'MORE  THAN  50  ONE-ELE  I NTEGRALS ' / 13 
END 

SUBROUTINE  TWO ( I  I , J J, LI  M2,  I  1) 

IMPLICIT  RE AL*8  ( A - H , 0 - Z ) 

COMMON/ FI  NT/ LVEC (3, 5 2), SLATORC 5 2, 10) 

COMMON /SUB  I  NT/ FACC  3), FAC  1C  3, 50),FAC2(3,100),FAC3(3,2w0) 
.  ), I NT1( 50) ,  INT2C4, 100),  I  NT  3  (6,  200),  I NT4 (  8,  300) , SLASHOC  2 
.  (4) 

INTEGER  SLATOR, SLASHO, D I FORB, IV(2) 

REAL*8  LVEC 

INTEGER  IX(4,4)/1,2,3,4,3,4,1,2,2/1,4,3,4,3,2/1/ 


SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

SRTH 

ONEH 

ONEH 

ONEH 

, FAC4 ( 3, 3000NEH 

,  10), Dl FORBONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 
ONEH 

1  ('*'))  ONEH 

ONEH 
TWOH 
TWOH 
TWOH 

, FAC4C  3,  300 TWOH 

, 10), D I FORBTWOH 
TWOH 
TWOH 
TWOH 
TWOH 


.1 


logical  spin 

SPINC I  ,  J,K,  L)=(O.GT.  I  SI  GNU,  I  )*  ISIGNC1,  J) )  .OR.  (O.GT.  IS  I  CM  (1,10* 

II  SIGN(1, L) ) 

l  =  M 

J=JJ 

1 1B= I APSCSLASHOC 1,  I  )) 

|  2B= I ABS(SLASH0(1/ J) ) 

S I GN=1. 00 
DO  1  JA  =  1, 2 
DO  2  JB=1,2 
IFCJ3.PQ.JA)  GO  TO  2 
IF(JB.EQ.l)  SIGN— SIGN 
I V  ( J  A )  =  I 

IFCSPI  N( SLASHO ( 1,  I  )/SLASH0(2/  I  V  ( 1 ) ) ,  S  LAS  HOC  1,J),SLASII0(2,  I  V(2)  )  ) 
1 )G0  TO  2 

1 1K= I ARS ( SLASHO ( 2, I  V ( 1 ) ) ) 

I2K-IABSCSLASHOC2,  1  VC  2 ) ) ) 

DO  3  JC=1,LIM2 
DO  6  00=1/ 4 

IFC  I1B.NE.  INT2C  IX(1,JD,JC)) GOTO 6 
IFC I 1K.NE. INT2C I X( 2, JD)/JC)) GOTO 6 
IFC  I2B.NE.  I  NT  2 ( IX(3,JD)/JC) ) GOTO 6 
IFC I 2K. EQ.  I NT2 ( I X( 4/ JD ) / JC ) ) GOTO 7 

6  CONTINUE 
GOTO  3 

7  DO  4  J D  =  1 /  I  1 

4  FAC2 ( JD,  JC ) =FA0  2 ( JD, JC )  +  FAC ( JD ) *S  IGN 
GO  TO  2 
3  CONTINUE 
L I  M  2  =  L  I  M  2  + 1 
IFC100.LT. LIM2)GOT010 
INT2C1/ LI M2)=l IB 
I NT2 ( 2/ L I  M2 )  =  I  IK 
I N T 2 ( 3 / L I M 2 )  =  I  23 
I N T 2 ( 4 / L I  M2 )  =  I  2K 


TWO!  I 

TV/ OH 

TWOH 

T\/OH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TV/OH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

Tl/OH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

TWOH 


DO  5  J D  =  1 /  I  1 

5  FAC  2  (JO/  L  I  M  2  )  =  F  AC  ( J  D )  *  S  I  G  N 
2  CONTINUE 
1  CONTINUE 
RETURN 

Jo  FORrAT( *  0^/13 1( *  * 1 )/20X/ 'MORE  THAN  100  TWO-EL  INTEGRALS’ 

STOP 

END 

SUBROUTINE  THREE  (  I  ,  J ,  K ,  L  3 ,  ID 
IMPLICIT  R EA L * 8  (A-  ,0-7.) 

COMMON/  FINT/LVF.CC3/52),  SLATQRC 52, 10  rA03C3  ?00) 

COMMON/ SUB  I  NT/ FAO( 3 ) , FAC1( 3, 50) , FAC2 ( 3, 1 ^0 ) , .3 (  ,  20  ) , 

.), INT1(50), I NT2 ( 4/ 100), INT3(6,200), I MT 4(8, 300), o LAS  (2, 
.  ( 4 ) 

INTEGER  SLATOR,  SLASHO/  D  I  EOF. ",  I  V(  3) 

REA L*3  LVEC 


TWOH 

TWOH 

TWOH 

TWOH 

TWOH 

/ 131 C ) ) TWOH 
TWOH 
TWOH 
THRH 
THRH 
THRH 

FAC4C3/ 300THRH 

10) , D I FORBTMRH 
THRH 
THRH 
THRH 


LOGICAL  SPIN  r  r  _  ,  ,  o  r  R  c  b  3  4  1  2, 1, 2, 5, 6, 3, 4, 5THRH 

.  T3W,  ll !:  IT*:  l:  i  5t,  1:1:  k  S:  £  *:  t,  s:  »: *, 4, 2.  i,  *,  i,  s™, 

1 ) *  I S I GNC 1, L ) ) . OR. (O.GT.  I  SIGN (1/1  )*  I  SI  GNU,*  THRH 

1 1B= I ABS ( SLASHO ( 1,  I  )) 


I2B=IABS(SLAS!I0(1/  J)) 

I 3B= I ABS ( S  LAS HO ( 1, K ) ) 

DO  2  JA  =  1 , 3 
DO  3  JB  =  1, 3 
IF(JA.EQ.JB)  GO  TO  3 
DO  4  00=1,3 

IFCCJC.EQ.JA) .OR. (JC.EQ.JB) )  GO  TO  4 
I V ( JA)  =  I 
I  V  ( J  B )  =  J 
I  V ( JC ) =K 


THRU 

THRU 

THRU 

THRU 

THRH 

THRH 

THRH 

THRH 

THRH 

THRH 


. LAS HO (1,K), SLASH 0(2, 1 V ( 3 ) ) ) )  GO  TO  4 

THRH 

S 1 GN=S 1 G ( 3, JA, JB, JC,4) 

THRH 

1 1K=I ABS (SLASHOC  2, I V C 1 ) ) ) 

THRH 

1 2K=IABS(SLASHO(2,  1 V( 2)  ) ) 

THRH 

1 3K=IABS(SLASHO(2, 1 V( 3 ) ) ) 

THRH 

DO  5  JD=1, L3 

THRH 

DO  8  JE=1, 12 

THRH 

1 F ( I1B.NE. INT3C 1 X ( 1, JE ) , JD ) ) GOTO  8 

THRH 

1  F ( 1 1K.NE.  INT3C IX(2,JE),JD) ) GOTO  8 

THRH 

1  F( 1 2B.NE. INT3( I X ( 3, JE ) , JD ) ) G0T08 

THRH 

1  F( 1 2K.NE.  1 NT3( 1 X ( 4, JE), JD) ) GOTO  8 

THRH 

1 F ( I3B.NE. INT3C 1 X ( 5, JE ) , JD ) ) G0T08 

THRH 

1 F( 1 3K. EQ. 1 NT3 ( 1 X ( 6, JE), JD) )G0T09 

THRH 

CONTINUE 

THRH 

G0T05 

THRH 

DO  6  J  E  =  1 ,  1  1 

THRH 

6 

FAC3( JE, JD)=FAC3(JE, JD ) + FAC ( JE ) *S 1 GN 

THRH 

GO  TO  4 

THRH 

5 

CONTINUE 

THRH 

L  3  =  L  3  + 1 

THRH 

IFC200.LT. L3)GOTO10 

THRH 

1 NT3 ( 1, L3 )  =  I  IB 

THRH 

INT3C2,  L3)  =  UK 

THRH 

1  NT3 (3, L3 )  =  I2B 

THRH 

INT3C4, L3 ) = I 2K 

THRH 

INT3C5, L3 )  =  1 3  B 

THRH 

INT3C6, L3 )  =  1 3  K 

THRH 

DO  7  JE=1, 1 1 

THRH 

7 

FAC3C JE, L3 ) =FAC ( JE ) *S 1 GN 

THRH 

4 

CONTINUE 

THRH 

3 

CONTINUE 

THRH 

2 

CONTINUE 

THRH 

RETURN 

THRH 

10 

WRI TEC  8, 900) 

THRH 

STOP 

THRH 

900  FORMATC ' 0 ' , 131C ' * ' )/30X, 'MORE  THAN  200  THREE *EL  I NTEGRALS ' / 13 1 ( ' *  THRH 


.')) 

END 


THRH 

THRH 

FORH 

FORII 

FORH 


SUBROUTINE  FOUR( I , J, K, L, 14,11) 

IMPLICIT  REAL* 8  (A-H,0-Z) 

COMMON/ F I NT/LVECC  3, 5  2),SLATOR( 5  2,10) 

COMMON /SUB  I NT/FAC(3),FAC1(3,50),FAC2(3, 100),FAC3(3,  200  ) , CAC4( 3,30 JFORH 
.), I  NTH  50 ) ,  I NT2 ( 4, 100  ) ,  INT3(6,200),  I NT4(  8, 3  00 ) , SLASHOC  2  ,  1  0  )  ,  D  I F ORB FORH 

.(4)  F0RH 

INTEGER  SLATOR, S LAS HO, D I FORB, I  V ( 4 ) 

REAL*8  LVEC  F0R  1 

INTEGER  I X( 8, 48  )/l, 2, 3, 4, 5, 6, 7, 8, 3, 4, 1,2, 5, o,7, 8, 5, 0,3, 4, 1,2, 7, 3, 7cOR  I 
8  3  4  5  6  1  2  1  2, 5, 6, 3, 4, 7, 8, 1,2, 7, 8, 5, 6, 3, 4, 1,2, 3, 4, 7,0, 5,b, 5, uFORH 
'  i  2' 3  4 ' j' 8'  % k,5, 6 ' 1, 2, 7, 8, 7, 8, 1, 2,5, 6, 3,4, 3,4, 7, 8,5,6, 1, 2, 7, 8, 3 FORH 


.  .  I 


./4,1/ 2,  5, 6,  5,  6,  3,  4,  7,  3,  12,  1,  2,  7,8,  3,  4, 5, 6,  1,2  5  6  7  8  3  4  7  8  1  2F 

•'?'  J' o' 7/  r'  o'  o'  ?'  o'  5'  ^  R/  X'  2'  7'  8'  3'  4/  5/  4,  7/  8,  1,  2,  5/  6,  5,  6,  7 ,  8,  3F 

4,  1,  2/  ->/  4,  j,  o,  7,  o,  1,  2,  3,  4/  1,  2,  7/  8,  5,  6,  5,  6,  7,  8,  1/  2,  3,  4,  7/  8,  5,  6,  3,  4F 


FOPH 
3F0RH 

1,  2'  2,  1,  4,  3,  6,  5/  o,  7,  4,  3,  2,  1,  6,  5,  8,  1,  6,  5,  4,  3,  2,  1,  8,  7,  8,  7,  4,  3,  6,  5,  2F0RH 

• ' 1/  o'  r  O  1  o'  I'  o'  v  1'  8'  7/  6'  5'  4z  3/  2/  !/  4/  3/  8,  7,  6,  5,  6,  5,  2,  1,  4,  3,  8,  7F0FH 

,/4'  ?'  o'  o'  1'  ?'  o'  ?'  o'  *'  6/  5'  4/  3'  4'  3'  8/  7/  6/  5/  2/  1,  8,  7,  4,  3/  2,  1,  6,  5,  6F0RII 

./5/4/3/8/7/2/l/2/l/8/7/4/3/6/5/2/l/6/5/8/7/4/3/8/7/2/l/4/3/6/5/8/7FOPH 
.,6,5,2, 1,4,  3/6/ 5,  2/  l/8/  7,  4,  3,4,  3,8,7,  2,  1,  6,  5,  6,  5,  8,  7,  4,  3,  2,  1,  4,  3,  6  FORM 

•  /  5,  8,  7 '  2'  1'  4'  3'  2/  1/  l°'  7/  6/  5/  6,  5,  8,  7,  2,  1,  4/  3,  8,  7,  6,  5,  4,  3,  2,  1/  FOPH 

LOGICAL  SPIN  F,  R!| 

SPI N( I R, IK,  JZ,JK,Kn,KK,LB,LK)  =  (O.GT. ISIGN(l,IF)*ISIrN(l, IK)). 01 .  FOPH 
HO.GT.  I  S  I  GN(1,  Z)*IS!GN(1,  JK) )  .OR.  (O.GT.  ISIGN(  1,  KB)*I  SIGN(1,KK) )  .0F0RH 
2  R . (O.GT. I  S  I G  N  ( 1 , LB)*ISIGN(1,LK))  FORM 

I  1R  =  I  APS ( SLASHOC 1,  !))  FOPH 

I2B=IABS(SLASH0(1, J))  FORM 

I  3B  =  I  ABS  (  SLASIIOC  1,  K)  )  FORM 

I  4 B  =  I  AR S  (  SLASHOC  1,1.))  FOR 

P0  1  JA=1/ 4  FOPH 

DO  2  JB-1/4  FORM 

IF(JA.EQ.JB)  GO  TO  2  FOPH 

DO  3  00=1,4  FOPH 

I  F ( ( JC . EQ. JA ) .OR. (JC.EQ.JB) )  GO  TO  3  FORH 

DO  4  JD  =  1,4  FORH 

IF(  CJD.Q .  JA).0R.  (JD.EQ.JB).OR.  ( JD. EQ. JC) )  GO  TO  4  FOPH 

I  V  ( J A  )  =  I  F0R;  1 

I  V  C  J B ) =  J  FORH 

I V  ( vJC  )  =K  FORH 

I  V ( JP ) =L  FORH 

I  F  (SPIN  (SLASHOC  1,  I  ),  SLASIIOC  2,  I  V(  1) ),  SLASHOC  1,  J  ),  SLASHOC  2,  I  V  (  2  )  ) ,  S  L  F  OR !  • 
.ASH0(1,K),SLASH0(2, I  VC  3 )), SLASHOC 1, L ), SLASHOC 2, I  VC  4) ) ) )  GO  TO  4  FOPH 
S I GN=S I G( 4, JA, JP, JC, JD) 

I  1 K  = I ABS ( SLASHOC  2,  I  VC  1 ) ) ) 

I  2 K  = I ABS ( SLASHOC  2,  I  VC  2))) 

I3K=IARS (SLASH 0(2,  I  V ( 3 ) ) ) 

I  4K= I ABS ( SLASHOC  2, I  VC  4) ) ) 

DO  5  J E  =  1 , L 4 
DO  8  JF=1, 48 

I  F  (  I  1B.NE.  INT4C  I  X  ( 1,  .J  F  ) ,  J  E  ) )  GOTO  8 
I  F ( I1K.NE.  INT4C I  X C  2 , JF ) , JE ) ) GOTO 8 
IFC I 2B.NE. INT4C I XC3, JF), JE) )G0T08 
I  F  (  I 2K.NE.  INT4C IX(4,JF),JF) ) GOTO 8 
IFC I  33. NF.  INT4C I XC 5, JF ) , JE ) ) GOTO 8 
IFC  I  3K.  ME.  INT4C  I  X  C  6 ,  J  F  ) ,  JF. ) )  G0T08 
I  F ( I 4B . NE .  I NT4  C I  X ( 7, JF ) , J  E ) ) GOTO 8 
IFC  I4K.EQ.  I.NT4C  I  X  (  8,  J  F ) ,  JE  ) )  G0T09 
CONTINUE 
G0TO5 

DO  6  J F  =  1 ,  I  1 

6  FAC4C JF, JE )=FAC4( JF, JE)+FAC( JF)*S IGN 
GO  TO  4 
5  CONTINUE 
L4=L4+1 

IFC  300.LT. L 4 )  GO  TO  10 
INT4C1, L4 )  =  I  IB 
I  NT 4 ( 2, L4 )  =  I  IK 
IMT4C3, L4 ) = I 2B 
I  NT 4 ( 4, L4 )  =  I 2K 
I  NT4 ( 5, L  4 )  =  I  33 
INT4C6, L  4 )  =  I 3K 
INT4C7, L4 ) = I 4B 


FORM 
FORH 
FOR:! 
FORH 
FORH 
FOPH 
FORH 
FOPH 
FORH 
FOI  H 
FORH 
FOP!’ 
F  0  RH 
FOPH 
FORH 
FORH 
FORH 
FORH 
FORI! 
FORH 
FORH 
FOPH 
FORH 
FORH 
FORH 
FORH 
FOR!! 
FORH 
FOR!! 
FORH 


I NT4 ( 8, L4 )  =  I  4 K 
DO  7  JF  =  1, I  1 

7  FAC4CJF, L4)=FAC(JF)*SIGN 
4  CONTINUE 
3  CONTINUE 
2  CONTINUE 
1  CONTINUE 
RETURN 

10  WRI TEC  8,  900) 

900  FORMAT ( ,0,/131( )/20X/ 'MORE  THAN  300  FOUR- E L- I NTEGRALS ' / 1 3 1 ( ' * 

STOP 

END 

FUNCTION  SIG(N, I  ,  J,  K,  L ) 

REAL*8  SIG 
INTEGER  I  V ( 4 ) 

I  V  ( 1 )  =  I 

1  V  (  2  )  =  J 

I  V  C  3 ) =K 

I  V  (  4  )  =  L 

I  SUM  =  0 

NM1=N-1 

DO  1  JA=1/ NM1 

JA1=JA+1 

DO  1  JB=JA1/ N 

1  IF( IV(JA).GT. IVCJB) )  I SUM= I SUM+1 
SIG=1.DO*DFLOAT((-1)**I SUM) 

RETURN 

END 

REAL* 8  LSSQMAC  52,52)/2704*0.D0/,EIGVAL(52,52),EIGVEC(52,52), 
1B(52)/F1/F2/SPIN(22) 

EQU I  VALENCE ( LSSQMAC 1 ) , E I GVAL ( 1 ) ) 

THIS  ROUTINE  IS  SET  UP  TO  CALCULATE  LS-E I GENFUNCT I ONS  OF  UP 
TO  TEN  ELECTRONS.  TO  INCLUDE  A  LARGER  NUMBER  OF  ELECTRONS 
SEEMS  SENSELESS,  SINCE  RUSSE LL-SAUNDERS  COUPLING  BREAKS  DOWN 

THE  EIGENVALUES  ARE  ON  THE  AVERAGE  ACCURATE  TO  11  SIGNIFICANT 
FIGURES.  IF  HIGHER  ACCURACY  IS  DESIRED,  CHANGE  STATEMENT  5  IN 

SUBROUTINE  ' DE I GE  ’  . 


THE  ROUTINE  CAN  HANDLE  STATES  WHICH  ARE  REPRESENTED  BY  UP  TO 
52  SLATERDETERMI NANTS.  IF  A  LARGER  NUMBER  OF  SLATORS  ARISE,  THE 
FOLLOWING  CHANGES  HAVE  TO  BE  MADE 

CHANGE  THE  DIMENSIONS  OF  LSSSQMA, E I GVAL, E I GVEC, B, SLDV, NUMDET 
IN  THE  MAIN  PROGRAM. 

CHANGE  THE  FORMAT  STATEMENTS  IN  THE  SUBROUTINE  SHREIB 
CHANGE  DIMENSION  OF  SLDV, NUMDET  IN  SUBROUTINES 
DETVAR 
OPERAT 
LSSQUA 
COMP 
OUTPU 

I NTEGER*2  DMAT(4,100),  CONFIG  (  33),  STATE  (2),  IVEC  (20), 
1ICOMV  (20),  I  STA  (20),  SLDV  (  5 2,  4,  2 0 ) , NUMDET (  5 2,  2 0  ) , CHAT ( 4 , 2 0 ) 
3, LINEC22), STTE ( 2 ) 

INPUT  IS  AS  FOLLOWS: 

M  THE  NUMBER  OF  UNEQUIVALENT  STATES  TIMES  3 


FORH 
FORH 
FORH 
FORH 
FORH 
FORH 
FORH 
FORH 
FORH 
)  FORH 
FORH 
FORH 
FORH 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
FSIG 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 


c  N  THE  HUMBER  OF  ELECRONS 

C  CONF  I  GURAT  101! :  1S1  2P2  3D1  =  01  00  01  02  01  02  03  02  Cl 

C  STATE  3 P  =  03  01 

C  PUT  M,N  CONF,  STATE,  AS  CONTINUOUS  14  INPUT 
C  IVEC  CONTAINS  THE  POSITION  FOR  SIP  IN  DMAT 
C  ICOMPV  CONTAINS  THE  MAXIMUM  IVEC  CAN  REACH 
C 

c  AFlER  THE  STATE  WITH  M L  =  L  AND  MS=S  HAS  BEEN  COMPUTED,  -  A  S-  APE 
C  APPUE'  CIN  SUBROUTINE  LMINUS)  TO  OBTAIN  ALL  POSSIBLF  F'FHS  FOR  ALL 

C  VALUES  OF  ML  AND  MS. 

C 

c  THE  OUTPUT  IS  WRITTEN  ON  UN  I T( 6 ) 

C 

c  INTCOE  COMPUTES  THE  INTEGRALS  OBTAINED  BY  OPERATING  WIT'!  ONF-, 

C  TWO-, THREE-, AND  FOUR-EL ECTRON-OPF RATORS 
C  IT  WRITES  THE  RESULTS  ON  UNITC8) 

C 

1  RE AT( 5, 9  01, ENP  =  23)M, N, (CONF I G ( J1 ) , Jl  =  l,  I  ),( STATE ( J 1 ), J 1  =  1,  2) 

DO  2  J1  =  1,52 
DO  2  J2  =  1,52 
2  LSSQMACJ1, J2)  =  0.D0 

CALL  VECTC IVEC,  I STA,  I COMV, M, CONF  I  G,  N ) 

CALL  EXPAND  ( STATE, CONF I G, DMAT, N, M ) 

C  AFTFR  DMAT  IS  COMPUTED  IT'S  COLUMNS  ARE  USED  TO  SET  UP  ALL  POSSIBLE 
C  S LATE RD E T E RM I N A NTS ,  WHICH  ARE  CHECKED  IF  T"FY  FULFILL  THE  STATE  CO  D. 
K=0 
1 1=N 

9  CALL  DETVAR  ( DMAT,  I VEC, SLDV, N, STATE, K, NUMDET,  &45) 

I VECC I  1)  =  IVEC  (II)  +  1 

IF  (IVEC  (ID  .  LT.  I  COMV  (ID)  GO  TO  9 

CALL  RESET  ( I VEC, I  1, &19, &29, N,  I STA, &19 ) 

19  CALL  CHECK  ( I VEC, I STA, &9  ,N  ,&29,ICOMV) 

29  STTE(l)  =  STATE ( 1 ) 

STTE(2)  =  STATEC2) 

CALL  OUTPU  (SLDV, STATE, CONFIG, K,N, &45,  0,STTE) 

CALL  OPE  RAT  (SLDV, LSSQMA, K, STATE, CMAT, N, E I GVFC,  3, &45,  I  1) 

CALL  LMINUS  (SLDV,C IGVEC,  I  1, K, N, CONF I G, STATE, M, E I GVAL ) 

CALL  I NTCOE ( N, II, STATE) 

45  GO  TO  1 

901  FORMAT  (20  I  4) 

23  STOP 
END 

SUBROUTINE  LMINUS  (SLDV1,  MAT  , I  1, K, N, CONF I G, STATE, M, E I  V- C ) 

C  THIS  ROUTINE  GENERATES  ALL  THE  POSSIBLE  FUNCTIONS  WITH  A  GIVEN  L 
C  S-VALUE.  FIRST  L-MIMUS  IS  APPLIED,  THEN  S-MINUS,  AND  THEN  THr  S LATER - 
C  DETERMINANTS  AMD  EIGENVECTORS  ARE  PRINTED  OUT. 

Q 

INTEGER* 2  SLPV1 ( 52, 4, 10) , SLDV 2 (52,4, 10), CONF I G ( 3 3 ) , STATE ( 2 ) 

1, STTE ( 2 ) 

INTEGER  IVE(10) 

REAL* 8  El VEC  (  5 2 ,  5 2  ) , F , FAC ( 1 0 ) , MAT ( K,  K ) 


LSOT 
LSQT 
LSOT 
LSQT 
LSOT 
LSOT 
LSOT 
LSOT 
LSOT 
LSOT 
LSOT 
LSOT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSOT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSQT 
LSOT 
LSQT 
LSQT 
LSQT 
LSQT 
LSOT 
LSQT 
LSQT 
LSQT 
LSQT 
LSOT 
LSOT 
LM  I  N 
LMI  N 
LM  I  N 
LMI  N 
LM  I  N 
LMI  N 
LM  I  N 
LMI  N 
LMI  N 
LIMN 


sj 

"  THE  FOLLOWING  STMTS  CHECK  IF  A  CLOSED  SHELL 
"  BE  DISREGARDED  FOR  THE  OPERATION  OF  L-UINUS 

DO  110  J110  =  1,  I  1 
DO  110  Jill  =  1, K 

110  El  VEC(  Jill,  J110)  =  MAT(  Jill,  K  +  1-JH0) 

ICFI  LL  =  1  ,  -t  \ 

CALL  FILL  (SLDV1,  r  I  VEC,  K,  ICF  I  LL,  ', -1,  '  ) 


IS  PRESENT. IF  SO, IT  Wl LL  LMI N 
OR  S-MINUS  LMI N 

LMI  N 

LMI  N 
LMI  M 
LM  I  N 
LM  I  N 
LMI  N 


. 


c 

c 

c 

c 

n 

c 


o 

o 

!C 

ic 

ic 

c 

c 

c 

c 

c 

n 

o 

C 

!C 

1 

C 

jc 

C 

;C 

c 

I  * 


c 


I  C  0  U  N  T  =  0 
I L I  Ml  =  1 

DO  10  J1  =  2  ,  M ,  3 

IF  ( ( CONF I G( J 1 ) *2+1 ) *2 . EQ.  ( CONF I G ( Jl+1 ) ) ) 
ILIM2  = I L I M 1 +  CONF I G( Jl+1 )  -  i 
DO  101  Jll  =1 L  I  M 1 ,  I L I M  2 
I  COUNT  = I COUNT+1 
101  IVE(J11)=  ICOUNT 
I L I  Ml  =  ILIM2  +1 
GO  TO  10 

11  ICOUNT  =  ICOUNT  +C0NFIG  (Jl+1) 

10  CONTINUE 


GO  TO  11 


IVE  CONTAINS  NOW  ALL  ORBITALS  TO  BE  OPERATED  UPON 
ILIM2  SPECIFIES  THE  NUMBER  OF  THESE  ORBITALS 


K2  CONTAINS  THE  NUMBER  OF  SLATORS  IN  SLDV2 
I  SIND  IS  THE  INDICATOR  TO  SHOW  IF  ONE  HAS  TO  OPFRATE  WITH 
S-PLUS  OR  S-MINUS 
STTE(l)  =  STATE ( 1 ) 

STTE ( 2 )  =  STATE ( 2 ) 

I  S  2  =  1 
ISIND  =  1 


STATE ( 1 )  IS  EQUAL  TO  2S+1 
STATE ( 2 )  IS  EQUAL  TO  L 

STTE  IS  A  VARIABLE  WHICH  CONTAINS  MS  AND  ML.  SINCE  THE  ORIGINAL 
EIGENF'NS  OF  L  AND  S  OP.  ARE  COMPUTED  FOR  THE  HIGHEST  MS  AND 
ML  VALUES,  STTE  IS  IDENTICAL  TO  STATE  AT  THE  START  OF  THE  ROUTINE 


THE  FOLLOWING  METHOD  IS  USED  TO  OPERATE  UPON  F(L/S/ML/MS)  WITH 
S-  AND  L- . . 

THE  VARIABLE  MAT  CONTAINS  THE  ORIGINAL  E' VECTORS.  THE  FIRST 
K  COLUMNS  AND  K  ROWS  OF  EIVEC  ARE  FILLED  WITH  MAT. 

THE  VARIABLE  ISIND  IS  SET  TO  +1  TO  INDICATE  THAT  THE  E'VECTOR 
TO  BE  OPERATED  UPON  ARE  IN  THE  FIRST  II  COLUMNS,  THE  E' VECTORS 
OBTAINED  BY  OPERATION  ARE  TO  BE  PUT  IN  THE  LAST  II  COLUMNS 
OF  THE  (52,52)  MATRIX  EIVEC. 

IF  WE  HAVE  A  S I NGELET-STATE,  NO  OPERATION  WITH  S-  OR  S+ 

9  IF  ( STATE ( 1 )  .EQ.  1)  GO  TO  18 
IF  (ISIND)  13,13,12 

12  CALL  SOP ( S LD VI, SLDV2,K,K2, EIVEC, FAC, I S I ND, I VE, I L I  M2, CONF I G,  STATE, 
1STTE,  I S  2 , N ,  I  1,  ICFI LL) 

GO  TO  14 

13  CALL  SOP( SLDV2, SLDV1, K2, K, E I VEC, FAC,  ISIND,  IVE,  I L I  M2, CONF I G, STATE, 
1STTE,  I S  2 , N ,  II,  ICFILL) 

14  ISIND  =  I S I ND* ( - 1 ) 

I F ( ( STTE ( 1 )  .GT.  1)  .AND.  (STTE(l)  . LT .  STATE(l)))CO  TO  9 
IF  WE  HAVE  A  S-STATE,I.E.  STATE(2)=0  NO  OPERATION  WITH  L- 
18  IF  ( STATE ( 2 )  .EQ.  0)  RETURN 

IF  ( STTE ( 2 ) * ( - 1 )  .GE.  STATE ( 2 ) )  RETURN 

IF  (ISIND)  15,15,16  ,  ,  ^ 

15  CALL  LOP  (SLDV2,SLDV1,K2,K, EIVEC, FAC,  IVE,  I  L  I  M2,  ' !,  I  1,  ISIND, 

1STATE, CONFIG, STTE, ICFILL) 

GO  TO  17 

16  CALL  LOP( SLDV1, SLDV2, K, K2, E I VEC, FAC,  IVE,  I L I  M2, N,  II,  ISIND, 

1STATE, CONFIG, STTE, ICFILL) 

17  I S  2  =  I S2  * ( -1 ) 


LM  I  N 
LMIN 
LM  I  N 
LMIN 
LM  I  N 
LM  I  N 
LM  I  N 
LMIN 
LM  I  N 
LM  I  N 
LM  I  N 
LMIN 
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LM  I  N 
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LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
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LM  I  N 
LM  I  N 
LMIN 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LMIN 
LMIN 
LMIN 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LM  I  N 
LMIN 
LM  I  N 
LM  I  N 
LMIN 
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LMIN 
LM  I  N 
LM  I  N 
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LMIN 
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LMIN 
LMIN 


■ 


(-1) 


ISIND  =  I  SIND  * 

GO  TO  9 
END 

SUBROOTI NE  LOP  (SL1/SL2/K1/K2/EI VEC, FAC, I  VE,  I L I  M2,  N, 1 1, I S I ND, 
1STATE, CONFIG, STTE, ICFI LL) 

THIS  ROUTINE  OPERATES  WITH  L-MIN  ON  SL1,  STORF5  THE  RESULT  IN  SL2 
REAL* 8  EIVEC(52,52),FAC(10),F,DSQRT,DFLOAT 
INTEGER* 2  SL1(52,4,10),5L2(52,4,10),SL3(1,4,10) 

1, STATE ( 2 ) , CON  F I G ( 3  3 ) , STTE ( 2 ) 

INTEGER  IVE  (10) 


:  DO  LOOP  10  RUNS  THRU  ALL  SLATORS 

:  LOOP  11  THRU  ALL  COLUMNS  WHICH  DO  NOT  BELONG  TO  CLOSED  SHELLS 
DO  30  J30  =  1,52 

DO  30  J31  =  1,4 

DO  30  J32  =  1, 10 

30  SL2CJ30, J31, J32)  =  0 
12  =  0 

IF  (ISIND  .EQ.  -1)  12  =  52  -  II 
K  2  =  1 

DO  10  J1  =1,  K 1 
DO  11  Jll  =  l, I L I M  2 

% 

/ 

:  THE  NEXT  STMT  CHECKS  IF  AB S ( ML ) . LT . ( L ) 

\ 

j 

IF  (SL1(J1,2, IVE(J11)).LE.(-1)*  (SL1( Jl, 3, I VE( Jll) ) ) )GO  TO  11 

* 

j 

:  IF  SO,  SLKJl,*,*)  IS  PUT  INTO  SL3(1,*,*) 

% 

j 

DO  12  J 12  = 1 , N 
DO  12  J12 1=1, 4 

12  SL3(  1,  J 12 1,  J 12  )  =  SLKJl,  J121,J12) 

% 

j 

:  THE  FACTOR  FOR  L-MINUS  IS  CALCULATED 

LMU  =  S  L3 ( 1, 2,  IVE(Jll)) 

MLMU  =  S  L3 ( 1, 3,  IVE(Jll)) 

F=DSQRT(DFLOAT( LMU* ( LMU+1 ) -MLMU* (MLMU-1 ) ) ) 

DO  13  J 13  =1,  I  1 

13  FAC ( J 13 ) =  E I VEC ( J 1, I  2  + J 13 ) * F 

> 

j 

'  THE  ML-VALUE  IS  DECREASED  BY  ONE 
% 

SL3 ( 1, 3, IVE(Jll))  =  SL3(  1, 3, I VE( Jll ) ) -1 

% 

j 

p  LOOP  40  CHECKS  IF  BY  OPERATION  WITH  L-  TWO  ORBITALS  HAVE 
t  BECOME  I  DENT  I  CAL, THUS  VIOLATING  THE  PAULI  PRINCIPLE. 

•j 

DO  40  J40  =  1, I L I M 2 
I F ( J 40  .EQ.  Jll)  GO  TO  40 
IF  (0  .EQ.  J11+J42)  GO  TO  40 

DO  41  J41  =  1,  4  .  _  ™  n 

I F(SL3( 1, J41, I VE( J40) )  .NE.  SL3(1, J41, I VE(Jll)) )GO  TO  40 


41  CONTINUE 
GO  TO  11 

CALL  SEARCH  ( S L2, K2, E I VEC, FAC, II, IVE, ILIM2,  I S I N  D , S  L  3 ,  N ) 


LMI  N 
LMI  N 
LM  I  N 
L-OP 
L-On 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-0D 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 
L-OP 

L-OP 

L-OP 
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c  SEARCH  LOOKS  IF  SL3C1,*,*)  IS  ALREADY  CONTAINED  IN  SL2 

11  CONTINUE 
10  CONTINUE 

STTE ( 2 )  =  STTE  C  2 ) -1 
K 2  =  K2  -  1 

CALL  OUTPU  (SL2, STATE, CONFI G,K2, N,&21, 1, STTE) 

21  J22  =  52  -  II 

IF  (ISIND  .NE.  1)  J22  =  0 
LOOP  50  NORMALIZES  THE  EIGENVECTORS 
DO  50  J 50  =1, I  1 
F  =  0.D0 

DO  51  J 5 1  =  1,K2 

51  F  =  F  +  EIVEC(J51,J22+J50)**2 
DO  52  J 52  =  1,K2 

52  EIVEC(J52,J22+J50)  =  E I VEC ( J52 , J2 2+ J 50 ) /DSQRT ( F ) 

50  CONTINUE 

DO  20  J2  =  1,  I  1 

20  WR!TE(6,900)  J2,(J21,EIVEC(J21,J22  +  J2),J21:sl,K2) 

CALL  FI LL ( S  L  2 , E I VEC, K2 , I CF I LL, N, I S I ND ,  I  1 ) 

900  FORMAT  (////'  EIGENVECTOR' ,14,  ,.'//10(4(4X/l3/  ,),/D25.15)/)) 
RETURN 
END 

SUBROUTINE  SOP  (SL1, SL2, Kl, K2, E I VEC, FAC, I S I ND, I VE,  I  LI  M2,  CONFIG, 
1STATE, STTE,  I S2, N, I  1, I CF I LL ) 

I  NT  EGER* 2  SL 1 ( 52, 4, 10  ) , SL2 ( 52, 4, 10 )  , STATE ( 2 ) , CONF I G( 33 ) , STTE ( 2 ) 
1, SL3 ( 1, 4, 10 ) 

INTEGER  IVE(IO) 

THIS  ROUT.  OPERATES  WITH  S+  OR  S-  ON  SL1,  STORING  THE  RESULT  IN  SL2 
SL2  IS  THEN  PRINTED  OUT  TOGETHER  WITH  THE  EIGENVECTORS 
REAL*  8  E I VECC  52,  52), FAC( 10), F 
DO  30  J30  =  1,52 

DO  30  J31  =  1,4 

DO  30  J32  =  1, 10 

30  SL2(J30, J31, J32)  =  0 

K2  =  1 

DO  10  J 1*1, K 1 

I ND  IS  A  NUMBER  WH I CH  IS  SET  TO  -1  IF  A  SPACE-ORBITAL 
[C  IS  REPRESENTED  TWICE 
C 

IND  =  1 

DO  11  Jll-1, I L I M  2 
IF  (IND)  12,12,13 

13  IF  (Jll.EQ.  I L I M 2 ) G 0  TO  14 
C 

C  FIRST  IT  IS  COMPARED,  IF  TWO  ADJACENT  COLUMNS  ARE  EQUAL  IN  THE  FIRST 
C  THREE  QUANTUMNUMBERS.  IF  SO,  Jll  IS  INCREASED  BY  TWO  TIMES  ONE 
C 

I  I  FCSL1CJ1, J113, IvE(Jll) )  .NE.  SL1( Jl, J113, I VEC Jll  +  1) ) )GO  TO  14 

113  CONTINUE 
IND  — 1 
GO  TO  11 

C 

C  STMT  14  CHECKS  IF  ONE  CAN  OPERATE  WITH  S+  OR  S-  ON  SL1 
C 

14  IF(SL1(J1,4, I VE (J11)).NE. IS2  )GO  TO  11 
C 

C  LOOP  15  PUTS  SL1CJ1,*/*)  ,NT0  SL3C1,*,*) 
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S-OP 
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S-OP 
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S-OP 

S-OP 

S-OP 

S-OP 

S-OP 

S-OP 
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S-OP 

S-OP 

S-OP 
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c 

DO  15  J15=1,N 
DO  15  J15 1=1/ 4 

15  S  L  3  (  1,  J 1 5  1 ,  J15)=SL1(J1,  J151,  J15) 

THIS  STMT  CHANGES  513(1,4,*)  INTO  ITS  NEGATIVE 

S  L 3 (  1,  4,  I  VEC  Oil) )  =S  L 3  ( 1,  4,  I  VEC  Jll ) ) *( -1) 

LOOP  215  CHECKS  IF  TWO  ORBITALS  ARE  IDENTICAL 

DO  215  J215  =  1,  I  L  I M 2 
I F ( Jll  .EQ.  J2 15 )  GO  TO  215 
DO  216  J216  =  1,4 

I  FCSL3C  1,  J216,  1VE(  Jll) )  .ME.  S L3C 1,  J2 16, I VEC J2 15 ) ) ) CO  TO  215 
216  CONTINUE 
GO  TO  11 
215  CONTINUE 

C  SEARCH  LOOKS  IF  IDENTICAL  SLATOR  IS  CONTAINED  I N  SI  2 
C 

12=0 

IF  ( ISIND  .EO.  -1)  12=52-11 
DO  115  J115  =  1,  I  1 
115  FACCJ115)  =  EIVECC Jl, I2+J115) 

CALL  SEARCH  (S L2 , K2, E I VEC, FAC,  I  1,  I VE, I L IM2, I S I ND, SI  3, N) 

12  I ND  =  1 
11  CONTINUE 
10  CONTINUE 

K2  =  K2  -  1 

STTEC  1)  =  STTEC  1)  -  IS2 

CALL  OUT  PU  (SL2,  STATE,  CONFIG,  K2,  N, &21,  1,STTF) 

21  J22  =  52  -  II 

IF  (ISIND  .NE.  1)  J22  =0 
C  LOOP  50  NORMALIZES  THE  EIGENVECTORS 
DO  50  J50  =1, I  1 
F  =  0 . DO 

DO  51  J51  =  1,K2 

51  F  =  F  +  EIVECC  J5 1, J22+J50)**2 
DO  52  J52  =  1, K2 

52  EIVECC  J52,J22+J50)  =  E I VECC  J52,  J22  +  J50)  /  DSORTCF) 

50  CONTINUE 

DO  20  J2  =  1,  I  1 

20  WRITEC  6,900)  J2,  ( J2 1, E I VECC J2 1, J2 2  +  J2 ) , J2 1  =  1, K2 ) 

CALL  FI LLCSL2, EIVEC,K2,  ICFI I L,N, IS IND, I  1) 

900  FORMAT  (////'  EIGENVECTOR' , I  4, ' . ' //10C4C4X,  I  3,  )  ,D25.  15)/) ) 

RETURN 
END 

SUBROUTINE  SEARCH  (S  L,  K,  E  I  VEC,  FAC,  I  1,  I  VE,  IU”2,  ISIND,SP,N) 

C 

C  SEARCH  LOOKS  IF  SLCK,*,*)  IS  CONTAINED  IN  SIC1-K-1,*,*) 

C 

REAL* 8  EIVECC  52,52),FAC( 10) , D F I  OAT 
I  NT  EGER*  2  SL(52,4,  10)  ,SP(1,4,10) 

INTEGER  I VEC 10) 

C  IF  SLCK,*,*)  IS  EQUAL  S  L(  Jl,  *,  * )  /  THEN  ONLY  TH r  ENTRY  I  M  E  I  VEC  IS 

C  CHANGED 
C 

12=52-1 1 

IFC ISIND. EQ.-l)  12=0 
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KM1=K-1 

no  10  ji=i,kmi 

I  SIGN  =  1 

DO  11  Jll  =1, I L I  M2 
HO  12  J12  =1,  I  LI  M2 
DO  13  J13  =1,4 

IF  ( SP( 1, J13, I ' E( Jll ) )  .ME.  SL(J1,J13,IVF(J12)))  rO  TO  12 
13  CONTI  MUF  1 

IF  (J11.NE.J12)  I S I GN= I S I  CM  +  1 
GO  TO  11 
12  CONTINUE 
GO  TO  10 
11  CONTI  MUF 

IF  ( ISIGN  . EQ. 1 )  IS  I  ON  =2 
00  15  J15=l, I  1 

15  FIVFC  ( Jl,  I 2  +  J15 ) =  EIVFC  ( Jl, I  2+ J15 ) +FAC( J15 ) *DFLOAT( (-l)**ISIrN) 
RETURN 

10  CONTINUE 

00  16  JIG  =1, I  1 

16  E I VEC( K, I 2+J16 ) =  FACCJ16) 

00  20  vJ 2 0  =  1,4 

no  20  J 21  =  1, N 

20  SL( K, J20, J21 )  =  SP(1, J20,J21) 

K  =  K  +  1 

IF  (K.LT.53)  RETURN 
WRITE  (6,900) 

900  FORMAT  ('0  THERE  ARE  MORE  THAN  5  3  S 17 TORS') 

STOP 

ENO 

SUBROUTINE  FILL  (SL,  El  GVEC,  K,  I  CF  I  LL  ,  NOF,  I  S  I  f'n,  1 1) 

C 

C  THIS  ROUTINE  COMPRESSES  THE  SLATORS  FROM  4-Or  TO  1-ON 

C  ANO  WRITES  THE  RESULT  AS  SLATOR( I  CS  I LL, K,NOE)  ON  UNIT  3 
C  THE  EIGVECS  ARE  WRITTEN  ON  UNIT  4 

C  THE  FIRST  RECORO  OF  EACH  WRITE  CONTAINS  THE  NO.  OF  SLATORS  ANO 
C  TNE  NO.  OF  EIGVECS 
C 

c 

C  SLATOR( *,*,*)  CONTAINS  THE  COMPRESEP  I NPFX  CALCULATED 

C  FROM  SL( * , * , *  ) 

:  n 

C  L 

ML  ARE  SELFEXPLANATORY 
C  MS 
C 

REA  L*  8  EICVEC(52,52),LVEO 

COMMON/ FI L I  V / LVEC(  20 , 3 , 5 2  ) , S LATO R, KVEC( 20) 

I  NT E G E R * 2  SL( 52, 4, 10) ,SLATOR(  20,  52,  10) 

INOG(N)  =  (N-2)*9-3 
I  NO F ( L , M )  =  L+  L*  L  +  M 
KVEC ( I rF I L  L ) =  K 

no  10  jio  =  l , k 
no  10  Jll  =  1, NOE 
N  =  SL( JIO, 1, Jll) 

L  =  SL (JIO, 2, Jll) 

ML=  SL( JIO, 3, Jll) 

MS=  SL( JIO, 4, Jll) 

LML  =  I  NOF  (  L , ML) 

IF  (M  .LF.  2)  GO  TO  1 
INCOMP  =  ( LML+ I NDG( N) ) *MS 


Sf’OH 
S°OM 
SREH 
SRCH 
SRCH 
s  nr 
S  DCH 
srom 
SRCH 
SRCH 
SROH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCH 
SRCN 
SRCH 
SRC1’ 
SRCH 
SRCH 
SRCH 
FI  LT 
E  I  I  T 
F  I  IT 
FI  LT 
FI  LT 
FI  LT 
FI  I  T 
FI  LT 
FILT 
FI  LT 
FI  LT 
FI  LT 
FILT 
FI  LT 
FILT 
FILT 
FI  LT 
f  I  LT 
F  I  LT 
FI  LT 
FI  LT 
FI  LT 
F  I  I  T 
FI  LT 
FI  l  T 
FI  LT 
FI  I  T 
FI  LT 
FI  LT 
FI  I  T 
F!  LT 


' 


. 


' 


.  1  ' 


1 

10 


GO  TO  10 

INCOMP  =  ( LML  +  N) *MS 
SLATOR  (ICFILL,J10,J11)  =  IN  COMP 
J22  =  0 

IF  (  ISIND  .EQ.  1)  J22  =  52  -  I  1 
DO  20  JA  =  1,  K 
DO  2  0  JB  =  1,  I  1 

LVEC( I CF I LL/ JB/ JA) =E I GVEC( JA, J22+JB ) 
I CF I LL  =  I CF I LL  +  1 
FORMAT  (2014) 

FORMAT  (3D26.18) 

FORMAT  (214) 

RETURN 

END 

SUBROUTINE  INTCOF(NOE/  I  1,  STATE) 

C  PURPOSE: 


20 

900 

901 

902 


12 


14 

15 

16 
17 


FILT 
FI  LT 
FI  IT 
FILT 
F  I  LT 
FI  LT 
FILT 
FI  LT 
FILT 
FI  LT 
FILT 
FI  LT 
FILT 
F  I  LT 
I  NTT 
I  NTT 
I  NTT 
I  NTT 
I  NTT 
I  MTT 
I  NTT 


TO  COMPUTE  SYMBOLICALLY  THE  INTEGRALS  WWICH  ARF  ORTA  I  MFD  WHEN 
APPLYING  THE  OPERATOR  H/  HH  AMD  SUMMING  OVER  A  COMPIETF  S FT  or 
L-S-EIGENSTATES 
VARIABLES: 

TERM:  THE  TERMSYMBOL,  EOU I  VALENT  TO  STATE  IN  'ISO' 

INT*:  ARRAYS  IN  WHICH  THE  SYMBOIIC  FORM  OP  THE  INTEGRALS  IS  STOP  FD I  NTT 
FAC*:  ARRAYS  IN  WHICH  THE  COMPUTF  COEFFICIENTS  ARE  STOPED  I  NTT 

IMPLI Cl T  REAL*8  (A-H,0-Z)  I  NTT 

COMMON/F I  LI N/LVEC(  2  0,  3,  52 )  ,S  LATOR, KVEC(  20)  I  NTT 

COMMON/ I TC/FAC, R  ECODE, S  LASHO , D  I PORB  I  NTT 

COMMON / I TC2/FAC1/FAC2/FAC3/ FAC4, INTI,  INT2,  INT3,  I NT4 , L I M 1, L I  M2 , L I  M3  I  NTT 
. , L I M  4  INTT 

REAL* 8  LVEC,FAC1( 3, 50), FAC 2(3, 10  0), FAC3(  3,  200 ) , FAC4 (  3,  300) ,  F AC(  3)  INTT 
INTEGER  INTI  ( 50 ) , I NT2 ( 4, 100 ) , I NT3(  6 , 20 0 ) ,  I  NT 4 ( 8 ,  300 ) , D I FORB ( 4 ) ,  INTT 
1R ECODE, S  LAS  HO ( 2, 10 ) 

I  NTEGER*2  SLATON  2  0,  52,  10  ),STATE(2) 

L I M=STATE( 1)*(STATE( 2) *2+1) 

L I M 1=0 
L I  M2  =0 
L  I M  3  =0 
L  I M4  =0 

W R  I  T E (  8,9  10) 

DO  12  JA  =  1,  L  I  M 
K=KVEC(  JA) 

WR!TE(  8,908)  ( (SLATOR  (  JA,  I  Al,  I  A2) ,  I  A2  =  l,  NOE) ,  I  A  1  =  1,  K) 

WR I  TE(  8,  9  09)  ( (  LVEC(  JA,  I  A 1,  I  A2  ) ,  I  A2  =  1,  K ) ,  I  A  1  =  1,  I  1 ) 

I F ( I 1.GT.3)  GO  TO  11 


DO  1  JA= 1, LIM 
K=KVEC( JA) 

DO  1  JB  =  1,  K 
DO  1  JC= JB , K 

CALL  COMPl(  JA,  JB,  JC,  I  1,  *l,NOF) 
CALL  SORTU'OE,  I  1) 

CONTINUE 

D  L I M=D F LO AT( LIM) 

DO  13  JA  =  1,  I  1 

DO  14  JB  =  1,  L  I  M 1 

FAC1(  JA,  JB)  =FAC1(  JA,  JB)  /HUM 

DO  15  JB  =  1, L I  M2 

FAC2( JA, JB) =FAC2( JA, JB) /DL IM 

DO  16  JB  =  1,  LI  M3 

FAC3( JA, JB) =FAC3( JA, JB) /DL IM 

DO  17  JB  =  1,  LIM4 

FAC4(  JA,  JB) =FAC4 ( JA, JB)  /DL  IM 
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10 
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CONTI  MU E 

WH  ITE(8,900)L!M1,LIM2,LI  M3,  L  I  M4 
DO  7  JA= 1, L I  Ml 


WRITE (8,903)  I NT1 ( JA) , ( FAC1 ( I  A, JA ) , I A=l,  1 1 ) 

DO  8  JA=1, L I  M2  ' 

WR I TE ( 8 / 904 ) ( I NT2 ( I  A ,  JA) , I A=l, 4) , ( FAC2( I B, JA) ,  I B  =  l,  II) 
IFCMOE.LT. 3)RFTURN  ' 


DO  9  JA  =  1,LIM3 

WRITE (8,905)  ( I MT3 ( I  A, JA) 

I FCMOE.LT. 4) RETURN 


IA=1,6),(FAC3( I A,JA) 


IA=1, II) 


DO  10  JA-1, L I M4 

WRI  E(  8,906)  ( I MT4(  I  A, JA) , I A  =  l, 8) , ( FAC4C I  A, JA) , I A  =  l,  I  1) 
RETURN 


WRITE (8, 907) 

STOP 

FORMAT (2014) 

FORMAT ( 3D26. 18) 

FORMAT ( 214) 

FORMATC33X, I3,3D25.15) 

FORMAT (18X,2(3X,2I 3), 3D 25. 15) 

FORMAT (9X,3(3X,2I 3),3D25.  15) 

FORMAT (4(3X,2I3),3D25.15) 

FORMAT ( *  0f ,131( 1 *' )/40X, 'MORE  THAN  THREE  LINEARLY  I  NDFPFNT 
1NCT I  QMS ’ / 131 (  '*'  )) 

FORMAT ( '  ',2014) 

FORMAT ( '  ' ,10012.4) 

FORMAT ( ' 1 ' ) 

END 

SUBROUTINE  C0MP1( LI , I , J , I l,*,NOE) 

REAL* 8  LVEC(20,3,52),FAC(3), FACT 
I  NT EGER  SLASHOC  2,10), RECODE, D I FORB(  4) 

I NTEGER* 2  S LATOR (  2 0 , 5 2 , 10  ) 

COMMON/ I TC/ FAC, RECODE, SLASHO, 0! FORE 
COMMON/ F I  LI  T :/ LVEC , S  LATOR , KVE 0 ( 2 0 ) 

I  S  U  M  =  0 
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RECODF=0 

11  DO  1  JA=1, NOE 

S  LASMO ( 1 , JA ) =S  LATOR ( L I , I ,JA) 

1  S LAS HOC  2, JA)=SLATOR( LI ,J,JA) 

FACT=1 . DO 

IF  ( J.EO. I )  GO  TO  3 
FACT=2.D0 
no  5  JA= 1 , NOE 
DO  G  JB=1 , NOE 

I F(SLASHO(l, JA) .EO.SLASHOC 2,  JP) )  GO 
6  CONTINUE 

RECODE=RECODF+l 
Dl  FORB(RECODF)=JA 
IF  ( RECODE. GT. 4)  RFTURM1 
GO  TO  5 

2  IF(JA.EQ.JB)  GO  TO  5 
I  SUM  =  ISUM+1 

I FX=SLASHO(2,JA) 

SLASHOC  2, JA)  =  SLASHO(2,JB) 

S  LAS HO ( 2 , J  B )  =  I rX 
5  CONTINUE 


COMT 

ror'T 

comt 

COMT 

COMT 

COMT 

COMT 

COMT 

COMT 

TO  2  COMT 

COMT 


7  FAC( JA) =LVEC( L I , JA, I ) *LVFC( L I , JA, J ) *DFLOAT( ( -1 ) ** I  SUM) *F ACT 
I F ( RECODE . EO . 0 )  RFCOOF=l 
RETURN 
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END 


SUBROUTINE 


SORT ( NOE/ II) 

COMMON/ I TC/FAC, RECODE, SLASHO,D I FORB 

COMMON/ I  TC2/FAC1,  FAC  2,  FAC3,  FAC4,  INT1/  I  NT2,  INT3,  I  NT4,  LIM1,  LIM2, 
.  ,  L I M  4 

REAL* 8  FAC(3)/FACl(3/50)/ FAC2 ( 3, 100)/ FAC 3 ( 3, 200)/FAC4(3/ 300) 
INTEGER  SLASHO(2/ 10 ) , D I FORB(4)/ INT1(50)/  I  NT  2(4, 100), I  NT 3(6. 200 
1INT4(8, 300), RECODE 
GO  TO  ( 1,  2,  3,  4 )  , RECODE 

1  DO  7  JA=l,NOE 

CALL  ONE  (SLASH0,JA,FAC1, I NT1, FAC, LI  Ml,  II) 

JBL= JA+ 1 

IF  (JBL.GT. NOE) GOTO  7 
DO  6  JB=JBL,NOE 

CALL  TWO (SLASHO,JA,JB,FAC2, INT2/  FAC,  LI  M2,  I  1) 

I  F(  NOE.  LTD)  GO  TO  6 
JCL=JB+ 1 

I F ( JCL.GT. NOE) GOTO  6 
DO  5  JC=JCL,NOE 

CALL  THREE  (  S  LASHO,  JA,  JB,  JC,  F  AC3,  I  NT3,  FAC,  L  I  M3,  ID 
IF  (NOE. LTD)  GO  TO  5 
JD  L  =  JC+  1 

I F ( JDL. GT. NOE ) GOTO  5 
DO  8  JD  =  JD L, NOE 

CALL  FOUR (S LASHO, JA, JB, JC, JD,FAC4,  I NT4, FAC, L I M4, I  1) 

3  CONTINUE 

5  CONTINUE 

6  CONTINUE 

7  CONTINUE 
RETURN 

2  JA  =  D I FORB ( 1) 

JB  =D I FORB ( 2 ) 

CALL  TWO (S LASHO, JA, JB,FAC2,  I NT2, FAC , L I  M2,  I  1) 

I  F  (NOE.  LTD)  RETURN 
DO  9  JC  =  1,  NOE 

I  FUJC.EQ.  JA)  .OR.  (JC.EQ.JB))  GO  TO  9 

CALL  THREE (S LASHO, JA, JB, JC,FAC3,  I NT3, FAC , L I  M3, I  1) 

I F ( NOE . LT . 4 )  GO  TO  9 
JD  L  =  JC  + 1 

I F ( JD  L. GT. NOE)GO  TO  9 
DO  10  JD  =  JD  L, NOE 

I  F(  (JD.  EQ. JA) .OR. (JD. EQ. JB ) .OR. (JD.EQ. JC) )  GO  TO  10 
CALL  FOUR ( S LASHO, JA,JB,JC,JD, FAC 4,  I NT4, FAC, L I M4,  I  1) 

10  CONTINUE 
9  CONTINUE 

RETURN 

3  JA=D I FORB ( 1) 

JB=D I FORB( 2 ) 

JC  =  D I FORB ( 3  )  ,  IM_ 

CALL  THREE  (S  LASHO,  JA,  JB,  JC,  FAC3,  I  NT  3  ,  FAC,  LI  3,  ID 

I F ( NOE . LT .  4 )  RETURN 

DO  11  JD  =  1,  NOE  , 

I F( ( JD.EQ. JA) .OR. ( JD. EQ. JB) .OR. ( JD . EQ. JC) )GOTO  11 
CALL  FOUR(SLASHO, JA, JB, JC, JD, FAC4, INT4, FAC,  LI  4,  I  D 

11  CONTINUE 

4  CALLRFOUR(SLASHO,DIFORB(l)/DIFORB(2)/DIFORB(3),DIFORi;(4),FAC4, 

1, FAC, L I M4,  I  1) 

RETURN 

END 
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SUBROUTINE  ONE ( S LASHO, I , FAC  1 
REAL* 8  FAC1C3, 50)/FAC(3) 
INTEGER  S LASHO ( 2,10), I NT1 ( 50 ) 
KB« I ABSCSLASHOC 1, I ) ) 

DO  1  JA=1,  LIM1 
LI  =JA 


INT1,FAC,  LIM1, I  1) 


I  F  (INTKJA)  .EQ.KB)  GO  TO  2 

1  CONTINUE 

L  IM1  =  LI  Ml+1 

IF  (50.LT.LIM1)  GO  TO  3 
I NT1( LI  Ml) =KB 
DO  4  JA=1,  I  1 

4  FAC1( JA, LIM1) =FACC JA) 

RETURN 

2  DO  5  JA  =  1, I  1 

5  FAC1( JA, LI )=FAC1(JA/ LI )+FAC( JA) 

RETURN 

3  WR I TE ( 8,  9 00 ) 

STOP 

900  FORMAT  ('O'/ISK'*’)  /  'MORE  THAN  50  ONE-ELF.  I  NTEGRALS  ' /131(  '  *  '  ) ) 
END 

SUBROUTINE  TWO (S LASHO, I ,  J, FAC  2,  I NT2, FAC, LI  M2,  I  1) 

REAL*  3  FAC2C3, 100), FAC(3), SIGN 
I  NT EGER  S LASHO (2, 10), I NT2 (4, 100), I V( 2) 

INTEGER  I  X(4,4)/l,  2,3,  4,  3,  4, 1,  2,  2,  1,  4,  3,  4,  3,  2,  1/ 

LOGICAL  SPIN 

I JN 1 ( I , J ) -M I  NO ( I , J ) +MAX0 ( I , J ) * ( MAX 0 ( I , J ) - 1) /2 

SPIN(  I,  J,K,L)=C0.GT. ISIGNC1, I )*ISIGN(1, J)).OR. (O.GT. ISIGNC1,  K)* 
1ISIGN(1, L)) 

I 1B=I ABSCSLASHOC 1, I ) ) 

I 2B=I ABSCSLASHOC 1, J)) 

S I GN=1 . DO 


DO  1  JA=1, 2 
DO  2  JB  =  1,  2 
IF(JB.EQ.JA)  GO  TO  2 
IF(JB.EQ.l)  S I GN  =  -S I GN 
I  VC  JA)  =  I 

I  FCSPI MCSLASHOC 1,  I ), S LASHO C  2, I  V ( 1 ) ) , S LASHO ( 1, J) , SLASHOC  2,  I V(2) ) ) 
l)GO  TO  2 

I 1K= I ABSCSLASHOC  2, I  V  C 1 ) ) ) 

I 2K=IABS(SLASHO(2, I  V  C  2 ) ) ) 


DO  3  JC=1, LIM2 
DO  6  JD  =  1, 4 

IFCI 1B.NE. INT2CIXC1, JD),JC) ) GOTO  6 
IFCI IK. NE. INT2CIXC2, JD), JC)) GOTO  6 
IFCI2B.NE.  INT2CIXC3, JD), JC) ) GOTO  6 
I F( I 2K.EQ. INT2C I  X ( 4, JD) , JC) ) GOTO 7 
6  CONTINUE 
GOTO  3 

DO  4  JD  =  1,  I  1 

4  FAC2C JD, JC)=FAC2( JD, JC ) +FAC ( JD ) *S I GN 
GO  TO  2 
3  CONTINUE 
LIM2-LIM2+1 
IFC100.LT. LIM2)GOTO10 
I  NT2  ( 1,  L  I  M2  )  =  I  IB 
I  NT 2  C  2, L I  M2 ) =1  IK 
I NT2 ( 3, L I  M2 ) « I  23 
I  NT  2 ( 4, L I  M2 ) =1 2K 
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DO  5  JD  =  1,  I  1 

FAC2( JD, LIM2)=FAC(JD)*SIGN 
2  CONTINUE 
1  CONTINUE 
RETURN 

10  WR I  TEC  8,900) 

900  FORMAT ( '0', 13 1 ( )/20X, 'MORE  THAN  50  TWO-ELE  INTEGRALS' 
STOP 
END 

SUBROUTINE  THREE (SL, I , J,K, FAC3, INT3,  FAC,  L3,  I  1) 

REAL*8  FAC3C3,  2  00), FAC ( 3 ) , S I GN ,  S  I  G 
I  NT EGER  SLC2,  10),  INT3C6,  200), IVC3) 

I  NTEGER  I  X  (  6,  12  )/ 1,  2,  3,  4,  5,  6,  3,  4,  1,  2,  5,  6,  5,  6,  3,  4,  1,  2,  1,  2 
.,  6, 1,  2, 3,  4,  3,  4,  5,  6,  1,  2,  2,  1,  4,  3,  6,  5,  4,  3,  2,  1,  6,  5,  6,  5,  4,  3,  2 
.,4, 3, 6, 5, 2, 1,4, 3, 4, 3, 6, 5, 2,1/ 

LOGICAL  SPIN 

I  J N 1 ( I  ,  J ) -M I N 0 ( I , J ) +MAX0 ( I , J ) * (MAXO ( I , J)-l)/2 
SPINCI  ,J,K,L,M, N ) =  (O.GT. ISIGNC1, I ) *  I S I GNC1,  J) ) .OR. (O.GT 
1)* I  SI GNC 1, L)).OR. CO.GT. I S I GN ( 1, M) *  I S I GN ( 1,  N)  ) 

I 1B=I ABSCSLC1, I )) 

I 2B= I ABS (SL( 1, J ) ) 

I 3B—I ABSCSLC 1, K) ) 

DO  2  JA=  1,  3 
DO  3  JB-l, 3 
I F( JA.EQ. JB)  GO  TO  3 
DO  4  JC  =  1,  3 

I F( (JC.EQ.JA) .OR. (JC.EQ.JB) )  GO  TO  4 
I  V( JA)  =  I 
I  V  (  J  B  )  =  J 
I  VC  JC) =K 

IF  CSP  I  NCSLC 1,  I  ),  SLC  2,  I  VC  1 ) ) ,  S  L  C 1,  J ) ,  SL  (  2,  I  V  (  2 )  ),  SL  ( 1,  K ) 
1))))  GO  TO  4 
S I GN=S I G ( 3, JA, JB, JC,4) 

I  IK  = I ABSCSLC  2, I VC1))) 

I 2K= I ABSCSLC  2, I  V ( 2 ) ) ) 

I  3  K  =  I ABSCSLC2, I  VC  3 ) ) ) 

DO  5  JD  =  1,  L3 
DO  8  JE-1, 12 

IFCI  1B.NE. I NT3 (IX(1,JE),JD) ) GOTO 8 
IFCI 1K.NE. I NT3 ( I  X ( 2, JE), JD ) ) GOTO 8 
IF ( I 2B.NE.  I NT3 ( I  X ( 3, JE) , JD ) ) GOTO 8 
I F( I 2K.NE.  I NT3 ( I  X ( 4, JE ) , JD ) ) GOTO 3 
IFC I 3B.NE. I NT3 (IX(5,JE),JD) ) GOTO 8 
IFCI 3K.EQ. I NT3C I X(6, JE), JD) ) GOTO  9 
CONTINUE 
GOTO  5 

DO  6  J E  =  1,  II  %  , 

6  FAC3C JE, JD)=FAC3(JE, JD)+FACC JE)*ol  GN 

GO  TO  4 
5  CONTINUE 
L3  =  L3  + 1 

IFC200.LT. L3)GOTO10 
I  NT3 ( 1, L3 ) = I  IB 
I NT3C2, L3 )  =  I  IK 
INT3C3, L3 ) = I 2B 
I NT3C4, L3 ) = I 2K 
I NT3 ( 5, L3 ) "I 3B 
INT3C6, L3)~l 3K 
DO  7  JE  =  1, I  1 

7  FAC3CJE, L3)=FACC JE)*SI  GN 
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4  CONTINUE 
3  CONTINUE 
2  CONTINUE 
RETURN 

10  WRITE(8,900) 

STOP  mK, 

900  FORMAT  (,0,,131('*,)/30X, 'MORE  THAN  50  THREE*ELE  I NTEGRALS ' / 13 1 ( ' * ' THRT 

THRT 

END  THRT 

SUBROUTINE  FOUR ( SL,  l,J,K,L,  FAC4,  INT4/FAC/L4/  ID  FORT 

REAL* 3  FAC4(3/ 300)/FAC(3)/SIGN/SIG  FORT 

INTEGER  SL(2,10),INT4(8,300),  I  V ( 4 )  FORT 

INTEGER  IX(8,48)/1,  2,3,4,  5,6,  7,  8,3,4, 1,  2,5,6,  7,  8,5,6,3,  4,  1,  2,  7,8,7FORT 
.,  3, 3,  4,  5,  6,  i,  2,  1,  2,  5,  6,  3,  4,  7,  8,  1,  2,  7,  8,  5,  6,  3,  4,  1/  2,  3,  4,  7/  8,  5,  6,  5,  6FORT 

. ,  1,  2,  3,4,  7,  3/  3,  4/  5,  6,  1,  2,  7,  8,  7,  8,  1,  2 ,  5,  6,  3/  4,  3,  4/  7,  8^  5^  6^  1^  2,  7,  8,  3FORT 

.,4,  1,  2,  5,  6, 5,  6,  3,  4,  7,  8,  1 ,  2 ,  1,  2,  7,  8,  3,  4,  5 ,  6/  1,  2 ,  5,  6/  7 ,  8,  3,  4,  7,  8/  1,  2 FORT 

.,  3,4,  5,  6,  7,  8,  5,6,  1,  2,  3,  4,  5,  6,  1,  2,  7,  8,  3,  4,  3,  4,  7,  8, 1,  2,  5,  6,  5,  6,  7,  8,  3FORT 

.,  4,  1,  2,  3,  4,  5,  6, 7,  8,  1,  2,  3,  4,  1,  2,  7,  8,  8,  6,  5,  6,  7,  8,  1,  2,  3,  4,  7,  8,  5,6,3,  4FORT 

.,  1,  2,  2,  1,  4,3,6,  5,  8,  7,  4,3,  2, 1,6,  5,  8,  7,6,  5,  4,  3,  2,  1,  8,  7,  8,  7,  4,  3,  6,5,  2FORT 

.,1,2,  1,  6,  5,  4,  3/  8,  7,  2,  1,  8,  7,  6,  5,  4,  3,  2,  1,  4,  3,  8,  7,  6,  5,  6,  5,  2,  1,  4,  3/  8,  7FORT 

4,  3,  6,  5,  2,  1,  8,  7,  8,  7,  2,  1,  6,  5,  4,  3,  4,  3/  8,  7,  6,  5,  2,  1,  8,  7,  4,  3,  2,  1,  6,  5,  6FORT 

.,  5,  4,  3,  8,  7,  2,  1,  2,  1,  8,  7,  4,  3,  6,  5,  2,  1/  6,  5,  8,  7,  4,  3,  8,  7,  2,  1,  4,  3,  6,  5,  8,  7FORT 

.,  6,  5,  2,  1,  4,  3, 6,  5,  2,  1,  8,  7,  4,  3,  4,  3,  8,  7,  2,  1,  6,  5,  6,  5,  8,  7,  4,  3,  2,  1,  4,  3,  6 FORT 

.,  5,  8,  7,  2,  1,  4,  3,  2, 1,  8,  7,  6,  5,  6,  5,  8,  7,  2,  1,  4,  3,  8,  7,  6,  5,  4,  3,  2,  1/  FORT 

LOGICAL  SPIN  FORT 

I JN1( I , J ) — M I N 0 ( I , J ) +MAX0 ( I , J ) * (MAXO ( I  ,  J ) -1 ) /2  FORT 

SPIN (IB,  IK,  JZ, JK,KB,KK, LB,LK)=  (O.GT.  ISIGNC1,  I B  )  *  I S I GN ( 1,  IK)). OR.  FORT 
KO.GT.  ISIGNC1,  JZ )  *  I  S  I  GN  ( 1,  JK)).OR.  (O.GT.  I  S  I  GN  ( 1,  KB )  *  I  S  I  GN  ( 1,  KK ) ) .  OFORT 
2R. (O.GT. IS IGNC 1, LB)* I SIGNC 1, LK) )  FORT 


I  1 B  =  I ABS (SL( 1,  I  )  ) 

I 2B=  I ABS ( SL ( 1, J ) ) 

I  3 B  =  I ABS ( SL ( 1, K )  ) 

143  =  1 ABS ( S  L ( 1, L) ) 

DO  1  JA=1, 4 
DO  2  JB= 1, 4 
IF(JA.EQ.JB)  GO  TO  2 
DO  3  00=1,4 

I  F((JC.EQ.JA) .OR. (JC.EQ.JB))  GO  TO  3 
DO  4  JD  =  1,4 

I F( ( JD. EQ. JA) .OR. (JD.EQ. JB) .OR. ( JD.EQ. JC) )  GO  TO  4 
I  V ( JA)  =  I 
I  V  (  J  B  )  =  J 
I  V ( JC ) =K 
I V(JD)=L 
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FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 

FORT 


IF(SPIN(SL(1,  I  )  ,  SL  (  2,  IV(1)),SL(1,J),SL(2,  IV(2)),SL(1,L),SL(*.,  /(  >)FO  ‘T 

1),SL(1,L),SL(2,  I  V(  4)  ) ) )  GO  TO  4  !_onI 

SIGN=SI  G(4, JA, JB, JC, JD) 

I 1K  =  I ABS ( S  L ( 2, I V( 1) ) ) 

I 2K=IABS(SL(2, I  V ( 2 ) ) ) 

I  3 K  =  I ABS (SL ( 2, I V( 3 ) ) ) 

I 4K= I ABS (SL( 2, I  V  ( 4 ) ) ) 

DO  5  JE  =  1,L4 
DO  8  JF=1, 48 

I F ( I 1B.NE. INT4(IX(1, JF), JE))G0T08 
I F ( I 1K.NE.  INT4(IX(2,JF),JE) ) GOTO  8 
I F ( I 2B.NE. INT4( I X(3, JF), JE) ) GOTO 8 
I F ( I 2K.NE. I NT4 ( I X( 4, JF ) , JE))G0T08 
I F ( I  33. NE. INT4(IX(5,JF),JE) ) GOTO 8 
I F( I 3K.NE. I NT4 ( I  X ( 6, JF), JE) )GOTOo 
I F( I 4B.NE. I  NT 4 ( I  X ( 7, JF ) , JE) )G0T0  8 
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I FC  I4K.EO. I MT  4 ( IX( 8, JF ) , JE) ) GOTO  9 
CO  NT  I  NUE 
GOTO  5 


DO  6  JF  =  1,  I  1 

FAC4(  JF/  JE)  =FAC4(JF,  JE) +FACC  JF)*S  I  ON 
GO  TO  4 
CONTI  NUE 
L4=L4+ 1 

I F (  300. LT . L4 ) GOTO  10 

I  NT 4 (  1,  L4)  =  I  IB 

I NT4C  2 , L4 ) = I  IK 

I  NT 4 (  3/  L4 )  =  I  2 B 

INT4(4/L4)=I2K 

I  NT 4 ( 5/ L4)  =  I 3B 

I MT  4(6, L4) =1 3K 

I  NT  4  (  7/L4)  =  l4B 

I  NT  4  (  8 ,  L4)  =  I  4 K 

DO  7  JF  =  1,  I  1 

F  AC4  (  JF , L4) =FAC( JF)*S  IGN 

CONTINUE 

CO  NT  I  NUE 

CO  NT  I  NU  E 

CONT  I  NUE 

RETURN 

WRITEC  8,  900) 

FORM  AT  (  1  0‘,  131( ) /20X, 'MORE  THAN  50  FOUR-ELF- I NTEGRALS ' / 1 3 1 ( 

1) 

STOP 

END 

FUNCTION  S  I  G(  N,  I ,  J,  K,  L ) 

R EAL* 8  SIG 
INTEGER  I  V (  4 ) 

I V( l)=l 
I  V( 2  )  =J 
I  V(  3 )  =K 
I  V(  4  )  =L 
I  SUM=0 


NM 1=N- 1 

DO  1  JA  =  1, NM  1 

JA1=JA+ 1 


DO  1  JB  =  JA 1/  N 

IF( IV(JA) .GT. IV(JB))  I SUM= I SUM+ 1 
S I G  =  1 . DO *DF  LOAT ( ( -1)** I  SUM) 


RETURN 

END 

SUBROUT  I NE  V ECT( I VEC,  ISTA/ I COMV, M, CONF I  G,  N) 

I  NT EGER* 2  I VEC(  10) ,  I  STAC  10),  I COMV(  10 ) , C°MF [ G( 33 ) 
II  CO  IB  (  10)  / 10*1/,  I  CO  1(10) 

DO  11  J1  =  1, 10 
ICOIB(JI)  =  1 
M3  =  M/3 
DO  10  J1  =  1/  M  3 

ICOK  Jl)  =(  2*CONF  I  G(  Jl*3-1)  +  1)*2 


I  CO  1 A (  10) 


I  COIAC  1)  =  I  C01(  1) 

DO  20  Jl  =  2, M3 

IC01ACJ1)  =  I  CO  1  AC  J 1- 1 )  +  iroi(Ji) 
ICOIB(JI)  =  ICOlB(Jl-l)  +  ICOl(Jl-l) 
J  3  =  1 

DO  30  Jl  =  1/  M3 
Jll  =  CONF I 0( J 1*  3 ) 
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FORT 
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DO  ;>1  02  =  1,011  \yppj 

I VEC( J3 )  =  ICOIB(OI)  +  02-1  VrcT 

ISTA  C  J  3  )  =  I  VEC  (  J3  )  VfrCT 

31  03  =  03  +  1  VECT 

30  CONTINUE  VE^T 

03  =  N  VFCT 

DO  40  01  =  1,M3  VFCT 

Oil  =  CONFIGC (M3-01+l)*3)  VECT 

DO  41  J2  =  1,011  VECT 

ICOMVCJ3)  =  I C01A( M3 -01+1) -02+2  VFCT 

41  J3  =  03-1  VFCT 

40  CONTINUE  VFCT 

RETURN  VFCT 


END 

SUBROUTINE  EXPAND  (STATE, CONF I C/DMAT/N/M) 

THIS  ROUTINE  EXPANDS  THE  CONF I  CURAT  I  ON  INTO  ALL  POSSIBLE  STATES 
FROM  WHICH  THE  SINGLE  DETERMINANTS  ARF  CHOSEN 

CVEC  CONTAINS  THE  POSITION  OF  THF  BEGINNING  OF  A  NEW  SHELL  IN  DMA T 
I NTEGER* 2  STATE (  2 ) ,  CONF I C(  3  3) /DMAT( 4,100),CVEC(10) 

Jl  =  l 


02  =  0 
J3  =  0 

J  4  =  M/3 

DO  10  I =1 , J4 

01=01+02 

J 2  =  2* ( 2*  CONF IO(3*l-l)  +  l) 

J3  =  J3  +  02 

DO  10  J=  01,03 

DM AT  (1,0)  =  CONF I G( 3* I -2) 

DMAT  (2,0)  =  CONF I G( 3* I -1 ) 

DM AT  (3,0)  =  CONFIG  (3*1-1)  -  (0-01)/2 
10  DMAT  (4,0)  =  ( -1 ) **0 
RETURN 
END 

SUBROUTINE  RFSFT  ( I VFC, I , * , *,M, . ISTA,*) 
I NTFGER* 2  I VEC( 20) , I STA( 20) 

IF  (I . EO . 1 )  RETURN  2 
I VEC ( 1-1)  =  I VEC  (1-1)  +  1 
DO  10  0=1, M 
10  I VEC  (0)  =  ISTA  (0) 

DO  20  0  =  I  ,  M 

20  IF  (  I VEC  (0-1)  .GF.  IVEC(O))  IVrC  (0)  - 
IF  (I.LT.M)  RFTURN3 
RETURN  1 


I VFC  ( 0-1) +1 


SUBROUTINE  DFTVAR  ( DMAT, I VEC , S LnV 
I NTEGER* 2  DMAT  ( 4, 100) , I VEC( 20)  ,S 


, N, STATE, K,NUMD FT,* ) 

LDV(  5  2,4,  20 ) , STATF ( 2 ) , MUMP FT ( 5  2 


120) 


S  U  M 1  =  0 


SUM2= 1 

DO  10  0=1, N  ,  . 

SUM1  =  SUM1  +  DMAT (3, I VEC( 0) ) 

LO  SUM  2  =  SUM2  +  DMA>T  (  4  ,  I  VE  C  (  0  )  )  cTATrf  HU  DFTUP  N 

IF  (  ( SUM1 .  NE .  STATE  (  2 ) ) .  OR .  (  SUi  2.,  «STA1 


VECT 
FXPD 
FX  PD 
FXPD 
FXPD 
FXPD 
FXPD 
EXPD 
EXPD 
FXPD 
EXPD 
EXPD 
EXPD 
EXPD 
FXPn 
FXPD 
EXPD 
FXPD 
FXPD 
rypn 

FXPD 
RSFT 
PS  FT 
RSFT 
RSFT 
RSFT 
RSCT 
RSFT 
RSFT 
RSFT 
RSFT 
RSFT 
n  FTV 
,  DFTV 
DFTV 
DFTV 
DFTV 
DFTV 
DETV 
DFTV 
DFTV 
DETV 


K  =  K  + 1 

IF  (K  .LE.  52)  GO  TO  11 
WR I TE ( 6, 900 )  K 

1  ..jii  ...  . 

900  FORMAT ( 1 1  THERE  ARE  MORE  TH.  N  ,14, 
11  DO  20  02  =  1,N 


SLATERDFTFRM I NANTS ' ) 


DETV 

DrTV 

DFTV 

DETV 

HFTV 
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NUMDET  (K,J2)  =  IVEC  (  J2 )  OFTV 

DD  2  0  J1  =  1,  4  DETV 

20  SLDV  (K/Jl,  J2)  =  DMAT( Jl, I VEC( J2 ) )  DETV 

RETURN  DFTV 

END  DETV 

SUBROUTINE  CHECK  (  IVEC/  ISTA,*,N,*,  ICOMV)  CHCK 

I  NT  EGER*  2  IVEC  (20)/ISTA  ( 20) , I COMV( 20)  CHCK 

39  CONTINUE  CHCK 

DO  10  J  =  1,N  CHCK 

IF  (  IVEC(J)  .OE.  ICOMV(J))  CALL  R FS ET( I VEC, J, &10 , *2 0, N, I STA,  *39 ) CHCK 
10  CONTINUE  CHCK 

RETURN 1  CHCK 

20  RETURN  2  CHCK 

END  CHCK 

SUBROUTINE  OPERAT  (SLDV  , LSSQMA, K,  STATE, CMAT, N, El OV EC, B,*,  I  1)  OPER 

C  THIS  ROUTINE  OPERATES  WITH  L-SOUARE  AND  S-SQUARE  ON  THE  SLATORS  OPER 

C  (WHICH  ARE  CONTAINED  IN  SLDV).  IT  SETS  U p  THE  MATRIX  LSSQMA  OPER 

C  WHICH  WILL  BE  DIAGONALIZED  TO  GIVE  THE  R  EOU I  RED  EIGENVALUES  AND  OPER 

C  EIGENVECTORS  OPER 

C  OPER 

I  NT  EGER*  2  SLDV  (  52,  4/  20), CM AT  (  4,  20)/  STATE( 2 )  OPER 

REAL* 8  LSSQMA  (  K, K  ) ,EIGVEC(K,K),B(K),S2  OPER 

I  ALPHA  =  N/2  +  STATE(l)/2  OPER 

I  BETA  =  N  -  I  ALPHA  OPER 

S 2  =  (  1.25D-2)*DFLOAT(2*( I  ALPHA* I B ETA)  +  ( 1  ALPHA- I RFTA) **2 )  OPER 

DO  20  J  =  1,  K  npER 

DO  10  I  1  =  1,  N  npER 

DO  10  12=1,4  0PER 

10  CM  AT  (12,11)  =  SLDV  (J,  12,11)  0PER 

20  CALL  LSSQUA  (  CM AT,  SLDV,  K,  LSSQMA,  STATE,  J,N,S2)  npER 


THE  LOOP  60  COMPRESSES  LSSQMA,  SO  THAT  IT  CAN  BF  HAND l EP 
BY  THE  SUBROUTI NE  DEIGE 

K 1  =  K-l 
J  3  =  1 
J4  =  1 

DO  60  J1  =  1/ K 1 
DO  60  J2  =  1,  K 

LSSQMA(  J2,  Jl)  =  LSSOMA(  J3,  J4) 

J3  =  J3  +  1 

IF  ( J 3  .LE.  J4)  GO  TO  60 
J4  =  J4  +  1 

IF  ( J4  .GT.  K)  GO  TO  61 
J  3  =  1 

60  CONTINUE 

IF  (K  .  EQ.  2)  LSSQMAd,  2)  =  LSSQMA  (2,2) 

DEIGE  IS  A  R  EAL*  8  JACOBI  D I  AGONAL  I Z AT  I  ON  ADAPTED  FPOM  SSP 

61  CALL  D E I GE( LSSQMA/ E I GVEC, K, 0) 

THE  LOOP  70  PICKS  OUT  THE  E' VALUES  nr  LSSQMA 

J3  =  1 
J4  =  1 

DO  70  Jl  =  1,K 
DO  70  J2  =  1/  K 
IF  ( J3  .EQ.  J4 )  B(J4) 


=  LSSOMA(  J2,  Jl) 
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C~>  C~>  C~>  O  (->  C~i  c~> 


J3  =  J3  +  1 

IF  ( J  3  . LE.  J  4 )  GO  TO  70 
J4  =  J4  +  1 
J  3  =  1 
70  CONTINUE 

SHREIB  PRINTS  OUT  THE  APPROPRIATE  E' VECTORS 

CALL  SHREIB(EIGVEC,B,K,STATE,&100,  I  1) 

RETURN 
100  RETURN  1 
END 

SUBROUTINE  LSSQUA  ( CMAT,  SLDV,  K, LSSQMA,  STATE, J 1, N, S2 ) 

THIS  SUBROUTINE  DETERMINES  THE  ELEMENTS  OF  LSSQMA 

REAL* 3  LSSQMA  (  K,K  ),F1,F2  ,S2  , DF LOAT 

I NTEGER* 2  CMAT  (4,20), SLDV  (  52,  4,  20 ) , STATEC 2 ) 

LSSQMAC  J 1, J 1 )  =  S2 
C 

C  NOW  THE  EXCHANGE  OPERATOR  IS  APPLIED  ON  CMAT 
C 

DO  20  120  =  1,N 
DO  20  121  =  120, N 

IF  (  CMAT  (4,120)  .EQ.  CMAT  (4,121))  GO  TO  20 
CMAT  (4,120)  =  CMAT (4, I20)*(-1) 

CMAT  (4,121)  =  CMAT  (4,121)*  (-1) 

CALL  COMP  ( CMAT, K, SLDV, LSSQMA, 4, J1,F1,F2,N) 

CMAT  (4,120)  =  CMAT (4, I20)*(-1) 

CMAT  (4,121)  =  CMAT  (4, I 21)*( -1) 

20  CONTINUE 
C 

C  NOW  THE  L-SQUARE-PART  IS  COMPUTED 
C 

IS  =  STATE(2)*(STATE( 2 )  + 1 ) 

LSSQMA ( J 1, J 1 ) = LSSQMA ( J 1, J 1) +  DF  LOAT (  IS) 

DO  30  130  =  1, N 

CMAT  (3,130)  =  CMAT  (3,130)  +1 

IF  (CMAT  (3,130)  .GT.  CMAT  (2,130))  GO  TO  33 

I J 3  =  CMAT  ( 3, I  30) -1 

DO  31131=  1, N 

CMAT (3,131)  =  CMAT ( 3 , 131)  “1 

IF  (CMAT  (2,131)  .LT.  ( -1) *CMAT( 3, I  31) )  GO  TO  32 
I J 1  =  CMAT  (2,130) 

I J 2  =  CMAT  (2, I  31) 

I J 4  =  CMAT  (3, 131)  +  1 

FI  =  DF  LOAT  (  I J 1* (  IJ1+1)  "  I J3* ( I J  3+ 1 ) ) 

F  2  =  DF  LOAT  (  IJ2*(IJ2  +  1)  -  IJ4  *(IJ4-1)) 

CALL  COMP  (CMAT, X, SLDV, LSSQMA, 3, Jl, FI, F2,  N) 

32  CMAT (3,131)  =  CMAT( 3, I 31)+1 
31  CONTINUE 

33  CMAT (3,130)  =  CMAT ( 3, I  30 ) - 1 
30  CONTINUE 

RETURN 

END 

SUBROUTINE  COMP  (  MA, K, SLDV, LS, I , XL, FI, Fz, N) 

c  THIS  ROUTINE  COMPARES  THE  SLATOR  MA  WITH  THE  oLATORo  If  oLV\  AND 
c  ASSIGNS  APPROPRIATE  MATRIX-ELEMENTS  OF  LS 


OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

OPER 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

LSSQ 

COMP 

COMP 

COMP 

COMP 


N 

■* 

. 

T  ...  I, 

. 

.  . 


INTEGER  AUSFAL ( 10 ) 

I NTEG ER* 2  MA  (4,20),SLDV  (  52  4  20  ) 

REAL* 3  LS  (  K,K  ),F1,F2  ,DSQRt/  DFLOAT 
DO  10  II  =  1/  K 
DO  11  121  =  1,10 
11  AUSFAL ( I  21)  =  0 
I  ND  I  C  =  1 
ISIGN  =  0 
DO  30  13  =  1,  N 
DO  20  12  =  1,N 
DO  21  121  =1, I ND I C 
I  F(  I  2  .EQ.  AUSFAL ( I  21))  GO  TO  20 
21  CONTINUE 

DO  40  14  =  1,4 

I F  (  MA  (14,13)  .NE.  SLDV  (11,14,12))  GO  TO  20 
40  CONTINUE 

AUSFAL ( I ND I C)  =  I  2 
I ND I C= I ND I C+ 1 
I F ( I  3. ME. 12) I S I GN  = I S I GN+1 
GO  TO  30 
20  CONTINUE 
GO  TO  10 
30  CONTINUE 
GO  TO  1 
10  CONTINUE 
RETURN 

I  F ( ISIGN.NE.O) I  SIGN® I  SI GN+1 
I  F  (  I  . EQ . 3 ) GO  TO  2 

LS  (II, KL)  =  LS  (I l,KL)+(5.D-2)*DFLOAT  ( ( - 1) **MOD ( I S I GN, 2 ) ) 
RETURN 

2  LS  (II, KL)  =  LS ( I  1, KL )  +  DSQRT ( F 1*F 2 ) *DF LO AT ( ( - 1 ) **MOD ( I S  I  GN ,  2 ) ) 
RETURN 
END 

SUBROUTINE  SHRE  I  B  (MAT,  EVAL,  K,  STATE,  * ,  ID 

THIS  ROUTINE  WRITES  OUT  THE  E 1  VECTORS  FOR  THE 
GIVEN  TERM  AND  CONFIGURATION 


(IST2+2)) 


REAL* 3  MAT (K,K),EVAL(K),ST1,ST2 
I  NTEGER*2  ST  ATE ( 2 ) 

I ST1  =  STATE(2)*(STATE(2)+1) 

I  ST 2  =  STATE ( 1)  -1 

ST1  =  DFLOAT ( I ST1)  +  1 . 25D-2*DF LOAT ( I ST2* 

II  =  0 

DO  10  J1  =  1, K 

IF  (DABS(ST1-EVAL(K-J1+1))  . GT .  l.D-9)  GO  TO  11 
11=11+1 
CONTINUE 

IF  (II  .EQ.  0)  GO  TO  12 
WRI TE ( 6, 900)  II 
DO  20  J1  =  1, I  1 
ST  2  =  DABS (ST 1- EVAL ( K-J 1  +  1) ) 

WRITE (6, 9  01)  J 1, ST2, (J2,MAT(J2, ( K- Jl  +  1) ) /  J2  =  1,  K ) 

RETURN 

WRITE  (6,902) 

FORMAT1 (//////'  THERE  EX  I  ST ’,14,  '  LINEARLY  INDEPENDENT 

SOl^RMAT^///'  EIGENVECTOR',  U,'.',60X, 'EIGENVALUE  ROUND-OFF  ERROR 


10 

11 


20 

12 

900 


COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
COMP 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHR3 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
SHRB 
El GENFSHRB 
SHRB 
SHRB 


. 

*  . 

. 

. 

>> 


* 


1*  /l PD  10.1  //10(4(4X/ 13, '  )  ' ,  0  PD  2  5 .  15)/)) 

902  FORMATC////  THERE  EXISTS  NO  STATE  WITH  THE  GIVEN  ML  AND  MS 
1  /  POR  THE  ABOVE  CONFIGURATION') 

END 

SUBROUTINE  OUTPU (MAT , STATE, CONF, K,N,*, ID/STTE) 

THIS  ROUTINE  PRINTS 

THE  NUMBER  OF  ELECTRONS 

THE  CONFIGURATION 

THE  VALUES  OF  ML  AND  MS. 

I  NTEG ER* 2  MAT ( 5 2 , 4, 10 ) , STATE ( 2 ) / CONF ( 33 ) , COWC 8 ) / ' S  '  'P  ' 

l'/'G  ','H  ','1  ' ,  1  K  '/,  L I  NEC  22  ) /22* '  1 /, I Tl, I T2, STTEC 2 ) 

REAL* 8  S PI N ( 11) , ALPH/ ' ALPHA  ' /, BET/ '  BETA  '/ 

N2  =  N*  2 
I  K~  1 

THE  NEXT  STMTS  FILL  THE  VARIABLE  'LINE'  UP  WITH 
THE  PRINTOUT  FOR  THE  CONFIGURATION 

JK  =  2 
I  NCR  =  0 

LI  NEC  I K)  =  CONF ( JK-1 ) 

LINECIK+1)  =  COWCCONFC JK)+1) 

IK  =  IK  +2 
I  NCR  =  I  NCR  +1 


D 


31 

30 


THIS  STMT  CHECKS  IF  ALL  THE  ORBITALS  FOR  EACH  ELECTRON 
HAVE  BEEN  EXHAUSTED. 

IF  ( I  NCR  . NE.  CONF ( JK+ 1 ) )  GO  TO  30 
JK  =  JK  +  3 

IF  (IK  . LT.N2)  GO  TO  31 

I T 1  AND  T I  2  CONTAIN  THE  VALUE  OF  ML  AND  MS. 

MS  CAN  BE  HALF  INTEGRAL 

IT1  =  STATE ( 2 ) 

I  ST1  =STATE ( 1) 

T I  2  =  FLOAT  (IST1-D/2.0 
I  Til  =  STTEC  2 ) 

I  ST2  =  STTEC 1 ) 

T I  21  =  FLOAT ( I ST2-I ST1)  +  FLOAT ( I ST1-1) / 2 •  0 

IF  (ID  .EQ.  1)  GO  TO  42 

WRITE  (6,910)  N/(LINE(I),I=1,N2) 

IF  (K  .NE.  0)  GO  TO  41 
WRI TE ( 6, 914 )  I  Tl,  T I  2 
RETURN1 

42  WRITE(6,915)  „ 

41  WRITE (6, 9 13)  I  Tl,  I  T11,TI  2,TI  21,  (  LI  NE(  I  ) ,  I  *1,  N2  ) 

DO  33  IK  =  1, K 

DO  34  IJ  =  1, N 

IF  (MAT ( I K, 4, I J ) ) 35, 35, 36 

35  SPIN  ( I J)  =  BET 
GO  TO  34 

36  SPI N( I J)  =  ALPH 

CONTINUE  ,  K(, 

WRITE  (6,911)  I K, (MATC I K, 3, I L), I L  =  1,  ) 

WRITE  (6,912)  (SPIN(IL), IL  =  1,N) 


34 


33 


WK  I  It  U),  aiz;  *,  '  w  ,  _  p  «T  n  I  nrm\ A I  I  7  AT  I  OM  1 

910  FORMAT ( 1 1 1 , 5X, *  L-S  EIGENFUNCTIONS  BY  DIRECT  D I  AGONAL U AT  I 


SHRB 
VALUESSHRB 
SHRB 
SHRB 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT1 
•  ,  '  F  OUT1 
OUT  1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT  1 
OUT  1 
OUT1 
OUT1 
OUT  1 
OUT  1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT1 
OUT  1 
OUT  1 
OUT1 
OUT  1 
OUT1 
OUT  1 
OUT1 
OUT1 
OUT  1 
OUT  1 
OUT1 
OUT1 
OUT  1 
/ / / 6  X , OUT  1 


. 

.  ♦ 


. 

. 


OF  F.LECTRONS  I  S ' , I 5//6X, 'THE  ORBITAL  OCCUPANCY  IS 


(,0',3X,I3,'.',3X,11(I2/'=ML',4X)) 

('  '  ,  10X, 11CA8, IX) ) 

*  «  /  /  s  y  *  i  ^ »  m  i  11 1  _  i  i 


S=',F4.  1, 


CORRESPONDING  TO 


, 3XOUT1 
OUT1 
OUT1 
OUT1 

MS  =  ' , F4 . 1//OUT1 
THE  GIVEN  OOUT1 


MS 


915 


12 


11 


10 


/ I3,10X, '  S=MS  =  ' ,F5.1///' 
AND  MS  VALUES'/'  FOR  THE 


ARE'//'  '  , 6X, 1 1 ( 5  X  ^ I  2, A2  OUT1 

OUT1 
SLATOOUT1 


THERE 

ABOVE 


EXISTS  NO 
CONFIGURATION 


)  OUT1 
OUT1 
OUT  1 
OUT1 
MAI  N 


1  'THE  NUMBER 
2, 11( I  2, A2) ) 

911  FORMAT 

912  FORMAT 

913  FORMAT ( '  '//5X,'  L=',I2,'  ML=’,I2, ' 

1/5X/  '  THE  POSSIBLE  SLATERDETERM I NANTS 
2RBITAL  OCCUPANCY  AND  VALUES  OF  ML  AND 
3)) 

914  FORMAT (  '  -  L L  =  '  »  ^  mv  'c=nc,i 

1R  WITH  THE  GIVEN  ML 

FORMAT ( ' 1 ' ) 

RETURN 
END 

IMPLICIT  REAL* 3  (A-H,0-Z) 

COMMON/ ALL/ EXPCOE (5, 10 ) / ORB EXP ( 15 ) ,H ( 5, 5,  3)/ CHARGE, QN, NOBT ( 3 ) , I SYMMAI N 
wFDUB  MAIN 

INTEGER  I NTN02/QNC 15),FDUB, I NFO ( 4 )  ,  ORB  (  3  )  MAIN 

COMMO  N /H I N Z / S , F , L , NO B , NO  R B , C  LOS  ED  MAIN 

COMMON/ON  E/ FAC1 ( 5  0 ) / FHH 1  ( 5/ 5,4),FH1(5,5,4), I  NT 1(50), LI  Ml  MAIN 

COMMON/TWO/FH2(5,5,4),FHH2(5,5,4),FAC2(100),LH2(5, 5, 4, 4 ) , LHH 2 ( 5, 5,  MAIN 
.4,4),  I NT2 ( 4, 100 ) , I NTN02 ( 100) ,NULL2( 100), LI  M2,  I  NTL  I  2  MAI  N 

COMMON/THREE / FAC3 ( 200  ),FHH3(  5, 5, 4), LHH 3 ( 5, 5, 4, 4) , I NT3 ( 6,  200  ) , I NTNOMAI N 
.3(3,  100), LI  M3, I NTL I  3, NULL3  MAIN 

LOGICAL  NU  LL2, NULL3 ( 100 ) , NULL4 ( 100 ) , CLOSED ( 3,  4) , LOG COM  (  3 )  MAIN 

COMMON /FOUR /FAC 4 ( 300 ) , FHH4 ( 5, 5, 4 ) , LHH4 ( 5, 5, 4, 4 ) , I NT4 (  8,  300 ) ,  LI  M4,  NMAI  N 
. ULL4  MAIN 

REAL*  8  F(5,5,4),LH2,  LHH  2,  LHH  3,  LHH  4,  S  (  5,  5,3),HH(5,  5,  3 ) ,  L  (  5,  5,  4,  4 ) ,  OMA I  N 
.  ENER(3,4), EXHH (3, 4), ENERGY (3, 4), COMV ( 3 ) , COMPLV ( 3 )  MAIM 

CALL  LOGIOUC I NFO, ' 2  ',*100)  MAIN 

FDUB- I NFO( 1)  MAIN 

CALL  I  N PUT (ORB, NOBT, LI  Ml, LI  M2, LI  M3, LI M4, METHOD, I NTL I  2, I NTL I  3, QN, CHMA I  N 
.ARGE,WK,  CLOSED,  ORB  EXP,  EXPCOE,  I  NT1,  FAC1,  I  NT2,  FAC2,  I  NT3,  FAC3,  I  NT  4,  F  AMAIN 


. C4, I NTN02, I NTN0  3, NULL  2, NULL 3, ITEFAC, I  OPT, THRH, TAU ) 
I COMPL=0 

CALL  ONE  I NT(HH, S ) 

IF(IOPT.LT.l) INTLI 2=0 
CALL  OUTO (H, HH, S, EXPCOE, NOBT, ORB ) 

DO  20  I  T  E  R  =  1 ,  ITEFAC 
I F( I TER.NE. 1) GOTO 2 
DO  1  JA=1,3 

LOGCOM(JA)=ORB(JA) . EQ.O 
COMPLV ( JA) =0 . DO 
DO  10  JA=  1, 3 
IF(ORB(JA).EQ.0)GOTO10 

CALL  RENORM ( NOBT ( JA), ORB ( JA), JA, EXPCOE, S) 

CONTINUE 
G0T04 

COMV ( 1 ) =  COMP  LV ( 1 ) 

COMV ( 2 ) =COMP  LV ( 2 ) -COM V ( 1 ) 

I F ( COMV ( 2 ) . LT.O.DO)COMV(2)=O.DO 
COMV ( 3 ) =COMPLV ( 3 ) -COM V( 2 ) -COMV ( 1 ) 

I F (COMV (3) . LT . 0 . DO ) COMV ( 3 ) =0 . DO 
DO  3  JA=1, 3 

LOGCOM( JA) =LOGCOM( JA) .OR. (COMV( JA) 

LI MD I  3*0 
LIMDI 4=0 
COMPL  =  1 . DO 
\/R  I  TE  (  8 , 9  00 )  ITER 
L  I M  2 1  =  1 

IFdCOMPL.  EQ.1)LIM21*2 


LT. l.D-8) 


MA  I  N 
MAIN 
MA  I  N 
MAI  N 
MA  I  N 
MAIN 
MAI  N 
MAIN 
MAI  N 
MAI  N 
MAI  N 
MAIN 
MAIN 
MAIN 
MAI  N 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAI  N 
MAIN 
MAI  N 
MAIN 
MAI  N 
MAIN 
MAI  N 
MAIN 


. 

1 

1  ,  • 


.  . 

. 

.  . 

.  .  : 


30 


31 


902 


21 


DO  21  I  SYM  =  1,  L  I  M2  1 
NORB  =ORB (  I SYM) 

I F( LOGCOMC  ISYM) ) G0T02 1 
I F( NORB . EQ . 0 ) GOTO 2 1 
NOB  =NOBT (  ISYM) 

DO  30  JA= 1/ NOB 

DO  30  JB  =  1, NOB 

DO  30  JC  =  1/  4 

FH  1(  JA,  JB,  JC)  =0  .  DO 

FHHK  JA,  JB,  JC)  =0  .DO 

FH2( JA, JB, JC)=0.D0 

FHH2C  JA, JB, JC) =0 .DO 

FHH3( JA, JB, JC)=0.D0 

FHH4( JA, JB, JC) =0 . D  0 

DO  30  JD  =  1,  4 

LH2( JA, JB, JC, JD)=0.D0 

LHH2( JA, JB, JC, JD)=0.D0 

LHH3( JA, JB, JC, JD) =0.D0 

LHH4( JA, JB, JC, JD)=0.D0 

CALL  OUT 01( FXPCOE, NOB/ NORB, ISYM) 

CALL  ONEELC NOB, ISYM, H,HH) 

CALL  OUT 1( FH  1, FHH 1, NORB, NOB,  ISYM) 

CALL  T  I M E (  1,  1) 

CALL  TWOELE 
CALL  T I M E (  1, 1) 

CALL  OUT2( FH2 , FHH 2 , LH2 , LHH2 , NORB , NOR , 1, 1, ISYM) 

I F( METHOD. EQ. 1. OR. L I  M3 . EQ . 0 ) GOTO 3 1 
CALL  THREELC LIMDI 3, NORB, NOB) 

CALL  T I M E ( 1, 1) 

CALL  OUT 3 ( FHH 3, LHH 3, NORB, NOB,  ISYM) 

I F( L IM4 . EQ. 0 ) G0T031 

CALL  FOURELC  NORB, NOB,  LIMD  14) 

CALL  T I M E (  1, 1) 

CALL  OUT4 ( FHH 4, LHH 4, NORB, NOB, 1, ISYM) 

CALL  COMB  I N( METHOD,  I SYM, ORB, NOBT, FH1, FHH 1, FH2, FHH2, FHH 3, FHH 4,  LH2 
, HH2 , LHH 3, LHH4, WK, EXPCOE, ENERGY, EXHH, TAU) 

CALL  T I M E ( 1, 1) 

OUT4 ( F, L, NORB, NOB, 1, ISYM) 

IS  THE  ROUTINE  EMPLOY  I  MG  THE  H I NAE-ROOTH AAN  METHOD 
EMPLOYS  NORMAL  D I  AGONAL  I Z AT  I  ON 
H I NZ  E( EXPCOE,  ISYM, OPB, COM^L) 

D  I  AGO (  EXPCOE,  NOBT,  I  SYM,  F HI,  FH2,  FHHl,  FM»-» 2 ,  FHH  3,  F»J»44,WK  ) 


CALL 
H  I  NZ  E 
Dl  AGO 
CALL 
CALL 


20 


CALL  T I M E ( 1, 1) 

WR I  TEC  8,902) COM PL 

COMPLVC  ISYM) = COM PL 

FORMAT ( ' 0  COM  PL =  ’,1PD8.1) 

““  ENFRH  SYM^  FXPCH  E/  FHl^  FH2^NORT^ORB,  ENFRPY  , 

CAL  L  EXVAHHt  FHH  1/ FHH2*  FHH 3/  FHH*t,  EXPCOE,  ISYM,  NORT,  ORB,  EXHH ) 

CALL  OUTO 1( EXPCOE, NOB, NORB, ISYM) 

CALL  OUTPUTC  EXPCOE,  ORBEXP,  EXHH,  ENERGY,  Vi!<,  COMRL,onR,  L  T,  rT  0  ,  I 

. R, QN, IGOMPL, CHARGE) 

CALL  CNVRGCC EXPCOE, ITER, NOBT, ORR , &2 2 ) 

!  HI ?ER  '  m.  i )  c  AU3  oS"  <  I  L'T  L I  2,  I  NTN02 ,  NU  L  L2 ,  I  NT  L  I  3,  I NTNO  3,  NU  L  L  3 ) 
CALL  AITKENC  EXPCOE,  I  TER, NOBT, ORB) 

CALL  REWINDC3) 

IFC  I  OPT . EQ . 0 ) GOT02  3 
I F (  I  OPT . EQ . 0 ) R  EADC  5,903)1  I  1 
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MAIN 

MAIN 
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MAIN 

MAIN 

MAI  N 

MAIN 

MAIN 

MAIN 

MA  I  N 
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FORMAK  2 0  I  4) 

GOTO  12 

CALL  R EW I  ND  ( 5 ) 

I COM PL* I COMPL+1 
I F (  I COMPL . EQ . 1 ) GOT  O  5 
I  OPT  =  I O PT+ 1 
I F ( IOPT.GT. 1) GOTO  12 

CALL  OPT IM(ORB, ENERGY ,  EXHH, WK/ METHOD/ IOPT/ L ! M 4 „ TAU ) 
GOTO  11 

WRITEC  6,901) 

STOP 

FORMAT ( ' 1  ITERATION  NO.  ’  ,13) 

FORMATC  LOGIOU  HAS  WRONG  RFTURN'  ) 

DEBUG  UNIT(9)/SUBCHK/ TRACE 
END 


MAI  N 
MA  I  N 
MA  I  N 
MA  I  N 
MAI  N 
MA  I  N 
MAIN 
MAI  N 
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MA  I  N 
MAIN 
MAI  N 
MAIN 
MAI  N 


SUB  ROUT  I  NE  I  NPUTCOQB,  NOBT,  L  I M 1,  L  I  M2,  L  I  M  3,  L  |M  4,  METHOD,  |  NT  LI  2,  I  NT  LI  3!  N  PT 
.  ,QN,  CHARGE,  WK,  CLOS  ED  ,  ORB  EXP,  EXPCOF,  I  NT  1,  FACl,  I  NT2,  F  A  C2 ,  I  NT  3,  F  A  C  3 ,  I  I  NPT 
.  NT4,  F  AC4 ,  INTN0  2,  I  NTN03,  NIJ  LL2,  NU  l  L3,  I  TFA,  I  OPT,  THRH,  TAU )  I  NPT 

IMPLICIT  R  EAL*  8( A-H, 0-Z )  INPT 

REAL*  8  CHARGE/ WK,  O^BFXPC  15),EXDCOF(  5,  10),  FAC1(  50 ) ,  F  AC2  (  10  0 ) ,  FAC3(  2  I  NPT 
.  00 ) , F AC4 (  300)  INPT 

I  NT  EGER  ORB(  3),NOBT(  3),  QN(  15 ) ,  I  NTH  50  ) ,  I  NT2  (  4,  100),  INT3(6,  200),  1  NT  I  NPT 
.4(  8,300),  I  NT  NO  2  (  100),  I  NTN0  3C  3,  10  0)  I  *<PT 

LOG  I  CAL  CLOS  ED  (  3 ,  4 ) ,  NU  LL2  ( 100  ) ,  NU  L  L  3(  100),NU!  1.4  (  100)  IMPT 

COMMON/RENOR / I NNO(  10),  I S  T  A ( 3 ) ,  I MNOR ( 10)  INPT 

RFAD(  5/  9  0  8,  END  =  23  0)  ORB,  NOBT,  I  TFA,  IOPT/  I  READ/MFTHOD,  INTL  I  2,  I  L'TL  I  3,  N  I  NPT 
.UM/IDEN  INPT 

TAU =0. DO  INPT 

I  F( METHOD. EQ.6)TAU=DFLOAT( NUM) /DFLOATC  I PFN)  INPT 

R  EAD(  5/ 9  0  8 ) ON  INPT 

RFAD( 5/ 9 09) CHARGE/ WK/ THRH  INPT 

R  EAD( 5/ 9 13 ) C  LOS  ED  INPT 

RFAD( 5/909 )ORBEXP  INPT 

READ(  5/  90  8)NORBT/  ISTA,  (  INNO( JA) / JA=1,  NOPRT)/(  I  NNO  R( JB ) , JB  =  1,  NORBT)  INPT 

DO  1  JA=1/  NORBT 

RE  ADC  5/  9  09M  EXPCOEC  JB  /  I  NNOC  JA) )  /  JB  =  1/  5) 

CONTI  NUE 

READC  5/908)LIMl/  LIM2  /  LIM3/  LIM4 
DO  5  JA=  1/  L  I M 1 
READC  5/  900)  I  NTH  JA)  /  FAC  1C  JA) 

DO  6  JA=1/LIM2 

READC  5/ 9 10  )  (  I NT2 ( JB / JA) / JB  =  1/ 4 ) / FAC2C JA) 

I F (  L I  M3 . EQ . 0 ) GOTO 8  1 

DO  7  JA=  1/  L  I M  3  ,  . 

READC  5/911)(  INT3C  JB/  JA)/ JB  =  1,  6)  /  FAC3C  JA) 

I F( L IM4 . EQ. 0 ) GOTO  81 

DO  8  JA=  1/  L I M4  n  I/t4. 

READC  5/  9  12)  (  I  NT4C  JB,  JA)  /  JB  =  1/  8  )  /  FAC4C  JA) 

IFC  I  READ . EQ . 0 ) RETURN 

WRITEC  10/  902)  „  ,  lti_  ,  .... 

WR  I  TEC  10/ 9  03)ORB/ NOBT/ I  STA/ LIM1/ L  I  M2/ L  I  3/ L  I  i 

WRITEC  10/  9  14  )  I  NNO  /  I  NNOR 
WRITEC  10/9  09  )CHARGE/WK/ THRH 

WR I  TEC  10/9  14) I TFA/ I  READ /METHOD,  I  NT  LI  2,  I  L  I  3 
WR I  TEC  10,9 15) ON 
WR I  TEC  10,  909) ORBEXP 
DO  82  JA=  1/  3 
NO=ORB( JA) 

WR^I  TE(  10^  9  09  EXPCOE(  JB,  I  NNO(  I  STA(  JA) +  JC) ) ,  JR  =  1.  5 ) ,  Jr  =  l, 


INPT 
INPT 
INPT 
INPT 
I  NPT 
INPT 
INPT 
I  N  PT 
I  NPT 
I  MPT 
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CONTINUE 

DO  120  JA=1,LIM1 

WRI TEC  10/  904) FAC1C JA) , I  NT 1 ( J A ) 

DO  12  JA= 1/ L I  M2 

WRITE(10/9Q4)FAC2(JA)/( INT2(JB/JA)/JB=1  4) 

I F (METHOD . EQ. 1 . OR . L I  M3 . EQ. 0 ) GOTO 140 
WRITEC10/905) 

DO  13  J  A  =  1 / L I M  3 

WRI  TEC  10/904)FAC3( JA), ( I NT3 C JB/ JA) / JB  =  1  6) 

WR I TE  C  10/  905 ) 

DO  14  JA=1, L I M4 

WRI TEC  10/  9  04  )FAC4( JA)/ ( IMT4CJB/ JA)/ JB  =  l/8) 

I F ( I  READ. EQ. 1) RETURN 

READ ( 1' 15000  00  0/908) INTLI 2/ INTLI  3 

DO  15  JA-1/ INTLI 2 

RE AD  Cl' ( 20000+ JA) *1000/ 901) NULL2CJA) / I NTN02C JA) 

I F ( I  READ . EQ. 2) RETURN 
DO  16  JA=1/ INTLI 3 

READ ( 1' (30000+ JA)*1000/901)NULL3(JA)/(I NTN03C JB/ 

RETURN 

STOP 

FORMAT ( 33X/ I3/3D25.15) 

FORMAT ( L  4 / 41 4 ) 

FORMAT ( ' 1* ) 

FORMAT  C,0,/3(3I3/3X)/4I3) 

FORMAT ( '  '/D20.10/10X/8I4) 

FORMAT ( /// ) 

FORMAT (201 4) 

FORMAT ( 5D15. 7) 

FORMAT (18X/2C3X/2I 3)/3D25.15) 

FORMAT (9X/3C3X/2I 3)/3D25. 15) 

FORMAT (4(3X/2I3)/3D25.15) 

FORMAT ( 40  L2 ) 

FORMAT  C,0,/2(10I3/5X)) 

FORMAT ( ' 0 1 / 20 1  4) 

END 

SUBROUTINE  OUTOCH/HH/S, EXPCOE, NOBT, ORB ) 

REAL* 8  EX PCOE  C  5 / 1 0) / H( 5 / 5/ 3 ) / HHC  5/ 5/ 3 ) / SC  5/ 5/ 3 ) / 
.5/4)/FH2(5/5/4)/FHH2(5/5/4)/FHH3(5/5/4)/FHH4(5/5 
. HH2C  5/ 5  /  4  /  4)  /  LHH3C  5/ 5/ 4/  4)  /  LHH4C  5/ 5  /  4  /  4) 

INTEGER  ORB(3)/NOBT(3)/ INTNO2C100)/ I NTN03 ( 3/  100 ) 
INTEGER  I 20LD/0// I 30LD/0// I40LD/0/ 

LOGICAL  NULL2C 100),NULL3( 100) 

COMMON/ RENOR/ I NNOC 10) / I  STAC  3) , I NNORC 10  ) 

WR I  TEC  6/ 90  5 ) 

DO  10  I S  =  I, 3 

IFCORBC I S ) . EQ . 0 ) GOTO  10 

NOB=NOBT( IS) 

WRITEC 10/905) 

DO  11  JA=1/ NOB 

WRI TEC  10/906) (SC JA/JB/ IS)/ JB  =  1/ NOB) 

WR ITEC 10/905) 

DO  20  JA= 1/ NOB 

WRI TEC  10/906) (HCJA/JB/ I S ) , JB  =  1/ NOB ) 

WRITEC 10/905) 

DO  30  JA=1 / NOB 

WRI TEC  10/  906) (HHC JA/ JB, IS), JB= 1/ NOB) 

CONTINUE 

RETURN 

ENTRY  OUTOKEXPCOE/NOB/NORB  /  ISYM) 


JA ) / JB  =  1/ 3 ) 
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I  NPT 
INPT 
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FHl(5/5/4)/FHH 1(5/0 UT1 
/4)/LH2(5/ 5 , 4/ 4)/ LOUTl 
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WRITE(6,9Q5) 

I  ST= I  STAC  I SYM) 

DO  40  JA  =  1, NORB 

WRITE(6/907)( EXPCOE ( JB,  I NNO( IST+JA)),JB=ltNOB) 
RETURN 

ENTRY  OUTl( FH1, FHH1, NORB, NOB,  I  SYM) 

I ST= I  STAC  I SYM) 

WRITE(10,905) 

DO  50  JA=1, NORB 
WRITEC 10,905) 

DO  50  JB=1, NOB 

WRITEC  10,  906)  (FHK  JB,  JC,  I  MNORC  IST+JA) ) ,  JO  1,  NOB) 
WR I  TEC  10,  905 ) 

DO  60  JA=1, NORB 
WR I  TEC  10,  905 ) 

DO  60  JB  =  1, NOB 

WRITEC 10,906) ( FHH1 ( JB , JC, JA ) , JC=1, NOB) 

RETURN 


ENTRY  OUT2C  FH2, FHH2, LH2, LHH2, NORB, NOB, NOL,  NOF2,  I  SYM) 

I ST= I  STAC  I SYM) 

DO  70  J  A  =  1 ,  N  O  R  B 
WRITEC 10,905) 

DO  70  JB=1, NOB 

WRITEC  10,  906) (FH2(JB,JC, INNORC I ST  +  JA ) ) ,  JC  =  1,  NOB ) 

I FCNOF2. EQ. 0) GOTO 71 
WRITEC 10, 905 ) 

DO  30  J A= 1, NORB 
WRITEC 10,905) 

DO  30  JB=1, NOB 
I  F( NOL. EQ. 0 ) RETURN 

WRITEC 10,906) (FHH2CJB, JC, INNORC IST+JA) ) , JC=l,NOB) 

WRITE(10,905) 

DO  90  JA=1, NORB 
WR I  TEC  10, 905  ) 

DO  90  JB=1, NORB 
WRITEC 10,905) 

DO  90  JC=1, NOB 

WR  I  TEC  10,906) (LH2(JC,JD, INNORC IST  +  JA), INNORC I ST+JB) ) , JD*1, NOB) 
WRITEC 10,905) 

DO  100  JA=1, NORB 
WRITEC 10,905) 

DO  100  JB= 1, NORB 
WRITEC 10,905) 

DO  100  J C  =  1 , NOB 

WRITE  (  10,906)  ( LHH2 C  JC, JD , I NNORC IST  +  JA),  I  NNORC  I  S  i  + JB) ) , JD  =  1, NOB) 
RETURN 

ENTRY  OUT3(FHH3,LHH3, NORB, NOB 
I  ST5*  I  STAC  I  SYM) 

DO  120  JA=l,NORB 
WRITEC 10,905) 

WRITEC  10,  906)  (FHH3C  JB,  JC,  I  NNORC  I  ST  +  JA) ) ,  JC-1,  NOB  ) 

WRITEC 10, 905) 

DO  130  JA=1, NORB 
WRITEC 10,905) 

DO  130  J B  =  1, NORB 
WR I TE ( 10, 905 ) 

WRliEU0^JGHLHH3(JC/JD/  IHNOR(  IST+JA),  INNOR(  I ST+ JB) ) , JD=1, NOB ) 
RETURN 
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ENTRY  OUT4 ( FHH4, LHH4, NORB, NOB. NOL4,  I SYM) 

1  ST  =  I  ST  A ( I SYM )  ' 

WRI TEC 10/ 905) 

DO  150  JA=1/ NORB 
WRI TEC  10/ 905) 

DO  150  JB=l,NOB 

WRI  TEC  10,9  06) (FHH4C JB, JC, INNORC IST+JA)),JC=l,NOB) 

I FCNOL4. EQ .  0 ) RETURN 
WRI TEC  10,905) 

DO  160  JA=1, NORB 
WR I  TEC  10,905) 

DO  160  JB  =  1, NORB 
WRITE  CIO, 905) 

DO  160  JC  =  1, NOB 

WRI  TE  ( 10, 9  06 ) ( LHH4  C JC, JD, I NMORC I ST+JA) , I NMORC I ST+ JB ) ) , JD  =  1,  NOB) 
RETURN 

ENTRY  OUT5  C I  2 NEW,  I NTN02, NULL 2,  I  3 NEW, I NTN03, NULL3) 

WRI  TEC  1*  15000000,900) I  2 NEW, I  3 NEW 
IFC I  2 NEW. EQ.  I  20 LD) GOTO  19  0 
I ST= I  20 LD+  1 
I 20LD= I 2NEW 
DO  180  JA= I  ST, I  2 NEW 

WRI  TEC  1* (  20000  +  JA)* 1000, 9  01) NULL2C JA), INTN02C JA) 

I  F ( I 3NEW. EQ. I  30 LD ) RETURN 
I ST= I 30LD+  1 
I 30LD= I  3 NEW 
DO  200  JA= I  ST, I 3NEW 

WRI  TEC  1' ( 30000  +  JA)* 1000, 901) NULL3CJA), ( I NTN03 ( JB, JA) ,  JB  =  1,  3 ) 
RETURN 

FORMAT (2014) 

FORMAT  C  L4, 4  I  4 ) 

FORMAT (///) 

FORMAT ( '  ’,5020.10) 

FORMAT ( 5D15. 7) 

END 

SUBROUTINE  ONE  I NTCHH, S ) 

IMPLICIT  REAL*  8 ( A-H, O-Z ) 

COMMON/ ALL/ EX PCOE, ORB  EX P, H, CHARGE, QN, NOBT,  I  S YM,  FDUB 
COMMON /PRO PE R/SRM  1(5, 5, 3),SRP1(5, 5, 3),SRP2(5,  5,  3) 

INTEGER  QNC15), I  STAC  3 ) / 0, 5, 10/, FDUB, NOBTC3),  I  C  (  3 )  /  '  S-','  P-  , 

.  D-  '  / 

REAL*  3  EX  PCOE  C  5,  10  ) ,  ORB  EX  PC  15  )  ,  H  C  5,  5,  3 ) ,  HH  (  5,  5,  3 ) ,  S  (  5,  !>,  3  ) ,  VEC  (  5  ) 
. , MAT (25) 

DO  1  JA=1, 3 
L= JA- 1 


LIM=NOBT( JA) 

I  F ( L I M . EQ . 0 ) GOTO  1 
DO  2  JB  =  1, LI M 
N1B=QN ( ISTA(JA)+J3) 
0E1B=0RBEXP( I  STAC JA)+JB 
EN 1B-ENM I ( NIB, L, 0, OE IB ) 
DO  2  J C  =  1 , L I M 
N1K=QN ( I  STAC  JA)  +  JC ) 

OE 1K  =  0RBEXP ( I  STAC JA)+JC 
EN 1K  =  EN1B*  ENM I (N1K,L,0, 
CALL  ONEI (NIB, L,0,OE1B, 
SRM1C JB, JC, JA) =RM  1*EN1K 
SRP1C JB, JC, JA) =RP 1*EN IK 
SRP2C JB, JC, JA) =R  P2*  EN IK 
SC JB, JC, JA) aSE*ENlK 


) 


) 

OE  IK ) 
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H(JB,JC,JA)=HE*EN1K 
HHC JB/ JC, JA)=HHE*EN1K 
CONTI NUE 
RETURN 


C  COMPUTE  THE  VALUE  OF  THE  DETERMINANT  OF  THE  S-MATRICES 
ggg  DO  3  JA=l/3 
NOB=NOBT ( JA) 

I F ( NOB . EQ . 0 ) G0T03 

C  FILL  UP  THE  MATRIX  FOR  USE  IN  GAUSS 
DO  4  JB  =  l,NOB 
VEC(JB)=DFLOAT(JB) 

IND=(JB-l)*NOB 
DO  4  JC=l/NOB 

4  MAT ( I ND+JB)=S(JB, JC, JA) 

CALL  GAUSS (MAT/ V EC, NOB ) 

C  COMPUTE  THE  DETERMINANT 
D  ET  =  1 . D  0 


900 


DO  5  JB  =  1, NOB 
DET=DET*MAT( ( JB-1) *NOB+ JB) 

WR I TE ( 6, 900 ) I C( JA) , DET 

CONTI NUE 

RETURN 

FORMAT ( 1  THE  VALUE  OF  THE  DETERMINANT  OF  THE  S-MATRIX  FOR ' ,  A4, 


.BITAL  IS, 1PD 12 . 3 ) 

END 

SUBROUTINE  RENORM ( NOB, NORB, I SYM, EXPCOE,  S ) 

REAL*  8  EXPCOE (5, 10 ) , S( 5, 5, 3 ) ,SV( 10 ) , EM( 10 ) ,  Rl( 4,  5) 
COMMON/RENOR/ I NNO ( 10 ) , I  STAC  3 ) , I NNOR ( 10 ) 

I  ST— I  ST  A ( I SYM) 

MULTIPLY  CMAT*S 
DO  1  JA  =  1, NORB 
DO  1  JB  =  1, NOB 
R1(JA,JB)=0.D0 
DO  1  JC  =  1, NOB 

R 1  (  JA,  JB) =R1( JA, JB)  +  EXPCOE( JC, I NNO ( I ST+ JA) ) *S ( JC, JB,  I SYM) 
MULTIPLY  R1*CAMT 
DO  2  JA= 1, NORB 
DO  2  JB  =  1, JA 
I J=JB+JA*( JA-l)/2 
SVC  I J)=0.D0 
DO  2  JC-1, NOB 

SVC  I J)=SV( I J)  +  R1(JA, JC )* EXPCOE CJC, INNOC IST  +  JB) ) 

RENORMALIZE  SV 

CALL  SOMS ( NORB, SV, EM ) 

COMPUTE  THE  RENORMALIZED  STARTING  VECTORS 

MULTIPLY  EM* CM AT 
DO  3  JA= 1, NORB 
DO  3  JB  =  1, NOB 
R1 ( JA, JB ) =0 . DO 

R1C JA,  JB ) »R1C JA, JB)  +  EM( JC  +  JA*  C JA-1) /2 )*EXPCOE ( JB, I NNO (  |  >T  +  JC ) ) 

PUT  R 1  INTO  EXPCOE 
DO  4  JA=  1, NORB 
DO  4  JB  =  1, NOB 

EXPCOE CJB, I NNOC IST+JA) ) SR 1 ( JA, JB ) 


RETURN 

END 

SUBROUTINE  ONEELCNOB, I SYM, H, HH ) 
C  SETS  UP  THE  ONEELECTRON  MATRICES 
IMPLICIT  REAL* 8 ( A-H, O-Z ) 


ONE  I 
ONE  I 
ONE  I 
ONE  I 
ONE  I 
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REAL* 3  H(5,5,3),HH(5,5,3) 

COMMON/ ON  E/ F  AC  1  (  5  0  ) ,  FHH 1  (  5,  5, 4 ) ,  FH 1  ( 5  5  4)  INT1C50)  i_  I  M  1 
INTEGER  SYMCHE, ORB(3),NOBT(3)  '  '  '  T  )/L  1 

DO  2  JA  =  1,  LI  Ml 
I lB-INTl(JA) 

IF (SYMCHE (I 1B).NE. ISYM)G0T02 

GOTO ( 4, 5, 4,  4,  4,  6,  5, 5,  5,  4,  4,  4,  4,  4,  7,  6,  6,  6,  5,  5,  5,  5,  5  ),  I  IB 
JM  1  =  1 
GOTO  8 
JM1  =  2 
GOTO  8 
JM  1=3 
G0T08 
JM  1  =  4 

DO  3  JB=1/ NOB 
DO  3  JC  =  1, NOB 

FH1( J3,  JC, JM1)=FH1( JB,  JC, JM1 ) +H ( JB, JC, ISYM)*FAC1( JA) 

FHH1(  JB/  JC, JM1) =FHH 1( JB, JC, JM1) +HH ( JB, JC, I S YM ) * F AC  1 ( JA) 

CONTINUE 
RETURN 
END 

SUBROUTINE  TWOELE 
IMPLICIT  REAL*  8 ( A-H, O-Z ) 

COMMON/S YM/ I DAR( 8, 10) 

COMMON /ALL/ EXPCOE,  ORB  EXP,  H,  CHARGE,  QN,  NOBT,  ISYM,  FDUB 
COMMON/S  PL  I  1/ I  1, I  2, Jl, J2,K1,K2, LI, L2, LIMI , L I M J, L I MK, L I  ML, JM I , JMJ, JTWOE 
.MK,  JML,  I  EXP,  JEXP,  KEXP,  LEXP  Tl/OE 

COMMON/TWO/FH2,  FHH2,  FAC2,  LH2,  LHH  2,  INT2,  I  NTN02,  NULL2,  LIM2,  INTLI  2  TWO  E 
COMMON/ I NTRA2/INTEG1, INTEG2  TWOE 

REAL* 8  INTEG1C5, 5, 5,5), I NTEG2 ( 5, 5, 5, 5 ) , FH2 ( 5, 5,4),FHH2(5, 5, 4), FAC2TWOE 
.  (10  0),  H( 5, 5, 3), EXPCOE (5, 10), ORBEXPC 15), LH2 ( 5, 5, 4, 4) , LHH 2 (5,  5,  4,  4)  TWOE 
INTEGER  SYMCHE,  I  NT2  ( 4,  100 )  ,  I  V  (  4 ) ,  I  M2  (4,  2)/l,  2,  3,  4,  3,  4,  1,  2/,  NOBT  (  3 )  TWOE 


ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

ONEE 

TWOE 

TWOE 
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.,  I  NTN02(100),QN(15),FDUB 
LOGICAL  LS 1, NU LL 2 ( 100 ) , RC, CH LI 
DO  1  JA= 1, L I  M2 
CHL 1=. FALSE. 

DO  2  J B  =  1 , 2 
I  1  =  1 NT2 ( I  M2 ( 1, JB ) , JA) 

I F ( SYMCHE ( I  1) .NE. ISYM)G0T02 
12=1 NT2C IM2(2,JB),JA) 

J 1= I NT2 ( I  M2 ( 3, J3),  JA) 

J2  =  l NT2 ( I  M2 ( 4, JB),  JA) 

CALL  SPLIT2CN0BT, ISY1B,  ISY2B) 
LS1= I SY1B . NE . ISY2B 
I  F  ( CHLDG0T06 
CHL 1  = . TRU  E . 

CALL  TW I  NT ( 1, 1, 2, 3, 4, RC) 

I F ( RC ) GOTO  1 

DO  3  J E  =  1 , LI M J 

I  V ( I DAR( 3, 1) ) =JE 

EXPE  =  EXPCOE( JE, JEXP ) *  FAC 2 ( JA) 

DO  3  JF  =  1, LIMJ 

I  V ( I DAR (4,1))=JF 

EX P  =  EXPE* EXPCOE ( JF,  JEXP) 

EXPL1  =  FAC2( JA)* EXPCOE (JF,  JEXP) 

DO  3  J C  =  1 , LIMI 

I  V  C I  DAR  (1,1) )  =  JC 

DO  3  JD=1, LIMI 

I  V ( I DAR (2,1)) = JD 

EXPL  =  EXPL1*EXPC0E(JD, I  EXP ) 
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Xl-INTEGl(IVCl),  IVC2),  IVC3),  IV(4>) 

FH2 ( JC, JD, JM ! )=FH2( JC, JD, JMI )+FXP*Xl 
X  2  —  1  NTEG2 ( I V( 1) / I V( 2 ) , I V( 3) , ! V( 4 ) )  ‘ 

FHH2 ( JC, JD, JM I ) =FHH2 C JC, JD, JM I )+EXP*X2 
IF(LS1)G0T03 

LH2( JC/ JE, JMI , JM J ) =LH2(JC/JE/ JMI , JMJ)+EXPL*X1 

LHH2( JC/ JE/ JM I , JM J )  -LHH2 ( JC/ JE, JMI , JM J) +EXPL*X2 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  TWI NT ( I NDEX, I  1, I  2, I  3, I  4,  RC ) 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON /SYM/ ID AR (8,10) 

COMMON/ I NTRA2/ I NTEG1/ I NTEG2 

COMMON/ALL/EXPCOE,ORBEXP,H,CHARGE,QN,NOBT,  I SYM/ FDUB 
COMMON/TWO/FH2,FHH2,FAC2, LH2, LHH 2,  INT2, I NTN02, NULL2, LIM2,  I NTL I  2 
REAL* 8  I  NT EG  1(5, 5, 5, 5), I NTEG 2(5, 5, 5, 5), ORB EX PC 15)/EXPC0E(5/  10), 
.,5,3),FAC2(100),FH2(5,5,4),FHH2(5,  5,  4 ) ,  LH2  (  5,  5,  4,  4 ) ,  LHH  2  (  5,  5,  4, 
I  NT EGER  QN( 15), ISTA(3)/0, 5, 10/, NOBT ( 3 ) , FDUB, I NFO(4), I NTN02(  100) 
. T2 ( 4, 100) 

LOGICAL  LSYM, NULL2 ( 100), RC 
I  NT EGER* 2  LEN/5000/ 

MU L I  1*0 

I  F(  I  NDEX.GT.  DG0T06 
CALL  SYMAS3 (NOBT, 4) 

I F ( I NTL! 2 . EQ. 0 ) G0T02 

DO  1  JA=1, I NTL! 2 

I F ( I NTN02 ( JA) . EQ. IDAR( 1, 8) ) GOTO 3 

CONTINUE 

I NTL I  2  =  1 NTL! 2  +  1 

I F ( I NTL I 2.LE.100)GOT04 

WR I TE( 6, 900 ) 

FORMAT ('  DIMENSION  OF  I  NT NO 2  EXCEEDED') 

STOP 

I NTN02 ( I NTL I  2 )  =  I D ARC  1,8) 

LI M1B= I DAR( I  1,4) 

L1B= I DAR( I  1,5) 

M 1B  =  I DAR ( I  1,6) 

I  13  =  1  STAC  I DAR( I  1, 7) ) 

L I M1K= I DAR ( I  2,4) 

L1K  =  !DAR( I  2,5) 

M 1K= I DAR ( I  2,6) 

I  IK  =  1  ST ACID AR (I  2,7)) 

L I M2B= I DAR ( I  3,  4) 

L2B=I DARC 13,5) 

M2B= I DAR( I  3, 6 ) 

I 2B  =  ISTA( IDARC I  3,7)) 

LIM2K=IDAR(!4,4) 

L 2 K  = I DAR ( I  4, 5) 

M2K  =  !D ARC  14,6) 

I 2K=I STAC  I DARC  I  4,7)) 

F 1=1. DO 

I F( IDARC I  1,  2) .NE. IDARC I  2,2) )F 1  =  0. DO 
I F ( I DARC I  3, 2) . NE. IDARC I  4,2) )F^=f  .  9 
DO  5  JA=1, LI M1B 
N1B=QN( I 1B+JA) 

OE 1B=0RBEX  P ( I 1B  +  JA) 
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TWIN 
TWI  N 
TWI  N 
TWI  N 
TWI  N 
TW  I  N 
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901 


EN1B-ENMI (N1B/ L1B,M1B,0E1B) 

DO  5  JB  =  1,  LI  M1K 
N1K-QNC I 1K+JB) 

OElK=ORBEXP( I 1K+JB) 

EN 1K  =  EN1B*  ENM I  (NIK, L1K,M1K, OE1K) 
H1=F1*H( JA, JB,  ID ARC  1 1, 7) ) 

DO  5  J01,LIM2B 
N2B=QN( I 2B+JC) 

OE2B-ORBEXPC I 2B+JC) 
EN2B=EN1K*ENMI ( N2B, 128/128, OE2B) 
DO  5  JD  =  1,  LI  M2K 
N2K*QN( I 2K+JD) 

OE2K-ORBEXPC I 2K+JD) 

EN  2K  =  EN  2B*  ENM I ( N  2  K , L2K,M2K,OE2K) 
H2  ~F  2*H ( JC, JD, ! D ARC  I  3, 7) ) 


TWI  N 
TWIN 
TWI  N 
TWI  N 
T\/l  N 
TWI  N 
TWIN 
TWI  N 
TW I  N 
TWI  N 
TWI  N 
TWIN 
TWIN 
TWI  N 
TWI  N 


X1=EN2K*REPI ( 1, NIB, LIB, M1B, OE IB, N2B, L2B, M2B, OE2B, NIK, L1K,M1K, OE1K,  TWI N 
*  N2K,  L2K, M2K, OE 2K,  1, 0, 0,  1.D0, 1, 0, 0, 1.D0)  TWI  N 

X2=REPI  ( 2,  NIB, LIB, M1B, OE IB, N2  3, L2B,M2B, OE2B, NIK, L1K, M1K, OE IK, N2K, LTWI N 
.  2 K , M 2 K ,  OE2K, 1, 0, 0, 1. DO, 1, 0, 0, 1.00)  TWI  N 

CALL  HR (NIB, LIB, M1B , OE  IB, N2B, L2B,M2B,OE2B, NIK, L1K, M1K, OE IK, N2K, L2KTWI  N 
.,M2K,OE2K, CHARGE, X3,X4) 

I NTEGHJA,  JB,JC,JD)=X1 
X7=2.D0*H1*H2+(X3+X4+X2)*EN2K 
INTEG2CJA, JB, JC, JD)=X7 
IF(X1.EQ.0.D0)NULI 1=NULI 1+1 
MULT=LIM1B*LIM1K*LIM2B*LI M  2  K 
I FCNULI 1. LT. MULT) GOTO  7 
NULL2C I NTL I 2)=.TRUE. 

RC  =  . TRUE . 

RETURN 
RC  =  . FALSE. 

NULL2C I NTL I  2 )  =  . FALSE. 

CALL  NOTE ( FDUB, I NFO ) 

WRITEC1*  (2000+1 NTL I  2)* 1000) INFOC2), INFO (2), INFOC3), I NFO (4) 

CALL  WRITEC I NTEG1, LEN, 0, LNR, 2,&100) 

CALL  NOTE ( FDUR, INFO) 

WRITECl' (2500+1 NTL I  2)*  1000) I NFO (2), I NFO(2),  I NFO (3),  I  NFO(4) 

CALL  WRITECl NT EG 2, LEN, 0, LNR, 2,&100) 

RETURN 
RC-NULL2C JA) 

I F ( RC ) RETURN 

READ ( 1 ' (  2000  + JA) *  1000 ) I NFO 
CALL  PO I  NT (FDUB, INFO, 1) 

CALL  READ ( I NTEG1, LEN, 0, LNR, 2, &  100 ) 

READ ( 1 1 ( 2500+ JA)* 1000) I NFO 
CALL  PO I  NT (FDUB, I NFO, 1)  ^  ^ 

CALL  READ ( I NTEG2, LEN, 0, LNR, 2,&100) 

RETURN 

WR I  TEC  6, 901) 

STOP 

FORMAT ( '  WRONG  RETURN  IN  I/O  ROUT') 

END 

SUBROUTINE  THREELtLIMDI  3,N0RB,N03) 

IMPLICIT  REAL* 8 ( A-H, O-Z ) 

COMMON/SYM/  I  DAR  (8,10)  4)  ,  I  NT3  (  6,  200  )  ,  I  NTNOTHRE 

COMMON/THREE/ FAC3  ( 200 )  /  FHH3  ( 5,  5,4),LHH3C5,3,4,4;,ir<i.u  , 

.3(3,100)/LIM3/INTLI3/NULL3(100)  DJr(15  15),  CD  I  JK(  5,  5,15),  CD  I  K  JTHRE 

COMMON /DENS  I  3/D!  J(  15,  15),DIK(15,  l-1),  D  JR  t  15,  thre 

•coAm6nmll/expcoe,56rbexp,h,charge,qn,nobt,.sym,fdub 
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COMMON/ I NTRA3/ I NTEG 
COMMON /S  PL  I  1/1 1, I2/J1/J2/K1/K2/L1.L2 
.MK/JML/ IEXP/JEXP/KEXP/LEXP 
LOGICAL  NULL3/LOI , LO J , LOK, WDH/ . FALSE./ 

INTEGER  QN(15)/NOBT(3)/FDUB/IV(6)/SYMCHE 

^  f'f/5"5^°RBEXP(15)'  EXPCOE  (  5,10),  LHH3,  H(  5,5.3) 

IJN(l,J)sMINO(l,J)+( MAX  0 ( I / J ) * ( MAX  0  C  I  .  J )  - 1 ) )  /  2 
I F ( WDH ) GOTO  14 
WDH*. TRUE. 

DO  13  JA=1, 100 
NULL3(JA)=. FALSE. 

DO  1  JA  =  1/ LI  M3 
I F(NULL3(JA) )G0T01 
I  1= I NT3 ( 1/ JA ) 

I  2  =  1 NT3( 2, JA) 

Jl=! NT3( 3/ JA) 

J2=INT3(4/ JA) 

K1=INT3(5/ JA) 

K2=INT3(6/ JA) 

CALL  S YM3 4 ( NOBT/ LO I , LOJ, LOK, LOK, ISYM,&1,3) 


I  F (  I  NT LI 3.EQ.0)GOTO3 
DO  2  J B  =  1/  INTLI 3 

IF(INTN03(1,JB).NE. I DAR( 1,3)) G0T02 
I F ( I NTN03C  2, JB) ,NE. I DAR( 3, 3 ) ) G0T0  2 
I  F (  INTN03(3/JB).NE. I DAR( 5/ 3 ) ) G0T02 
READ ( 1 1 ( 3 000+ JB) *1000) INFO 
CALL  POINTCFDUB/ INFO,l) 

READ( 2 ) I NTEG 

G0T05 

CONTINUE 

INTLI 3= I NTL I  3  +  1 

I NTN03 ( 1/ I NTL I  3 )  =  I DAR( 1/  3 ) 

I NTNO 3 ( 2 / INTLI 3)  =  l DA R(  3/3) 

I NTN03 ( 3/ INTLI 3)=IDAR(5/3) 

CALL  TINT3( INTLI 3/NULL3/RC) 

I FCNULL3C INTLI 3) ) GOTOl 
CALL  DENS3CLIMDI 3/EXPCOE) 

ASSIGN  3  TO  I  CASE 

I F ( LOJ ) ASS  I GN  7  TO  ICASE 

I F ( LO I ) ASS  I GN  6  TO  ICASE 

DO  4  I B  =  1 / L I M I 

I  V  ( 1 )  =  I  B 

DO  4  I  K  =  1  /  L  I  M I 

I  V  (  2 )  =  I  K 

I B  K  = I J  N ( IB, IK) 

DO  4  JB  =  1 / L I MJ 
I  V ( 3 ) = JB 
DO  4  JK=1/LIMJ 
I  V  (  4 )  =  J  K 
JBK= I JN( JB,  JK) 

DO  4  K B  =  1  /  L  I  M K 

I  V ( 5 ) =  KB 

DO  4  KK=1/LIMK 


THRE 

LI  Ml / L I MJ/ L I MK/ L I  ML/ JM I / JMJ/ JTHRE 
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THRE 
THRE 

I V( I DAR( 3/ 1) ) / IV( I DAR( 4/1))/ THRE 

THRE 
THRE 
THRE 
THRE 


V ( 6 ) =KK 

BK=I  JNCKB/KK)  ,  „ 

1  =  ( I NTEG( I  V C I DAR( 1/ 1) ) / I V( I DAR(  2/ 1) )  / 

V( I DAR( 5, 1) )/ I V( I DAR( 6, 1) ) ) )*FAC3( JA) 

OTOICASE, (6/7/3)  n  ID„ 

HH3  (  I  B/  IK/JMI  )  =  F H H 3 (  I  B,  I  K,  JMI  )  +X1  *D  JK }  ,v  KBr) 

HH3(  I  K,  JB,  JMI ,JMJ)-LHH3( I K,JB/JMI /JMJ)+X1*CDIJK( I B,JK,KBk) 
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LHH3C 
LHH3  ( 
LHH  3  ( 
LHH3  ( 
LHH3  ( 
LHH3( 
LHH3  ( 
FHH3( 
LHH3  ( 
LHH3  ( 
LHH 3  ( 
LHH3  ( 
F  H  H  3  ( 
CONTI 
CONTI 
DO  10 
DO  11 
DO  11 
FHH3C 
F  H  H  3  ( 
LHH3C 
LHH3  ( 

I  S  =  JA 


I K,  JK, 
I B, JK, 
I B,  JB, 
I  K,  KB, 
I  K, KK, 
I B, KB, 
I B, KK, 

JB,  JK, 
JK, KB, 

JK,  KK, 
JB, KK, 
JB, KB, 

KB,  KK, 
NUE 
NUE 

JA= 1, 
JB  =  1, 
JC  =  1, 

JB,  JC, 

JC,  JB, 

JB,  JC, 

JC,  JB, 
+  1 


JMI  , 

JMI , 
JMI  , 
JMI  , 
Jl  I  , 
JMI  , 
JM  I  , 
JM  J ) 

JMJ, 
JMJ, 
JMJ, 
JMJ, 
JMK) 


JMJ )  = 
JMJ  )  = 

JMJ )  = 

JMK)  = 
JMK )  = 
JMK)  = 
JMK)  = 
=  FHH3 
JMK)  = 
JMK)  = 
JMK)  = 
JMK)  = 
=  FHH3 


LHH3 ( I 
LHH3 ( I 
LHH3 ( I 
LHH3C I 
LHH3( I 
LHH3 ( I 
LHH3 ( I 
( JB, JK 
LHH3 ( J 
LHH3 ( J 
LHH3 ( J 
LHH3CJ 
( KB, KK 


K,  JK, 
B,  JK, 
B,JB, 

K,  KB, 
K,  KK, 

b,kb, 

B,  KK, 
,  JMJ ) 
K,KB, 
K,  KK, 
B,  KK, 
B,  KB, 
,  JMK) 


JMI , JMJ) 
JMI , JMJ) 
JMI , JMJ) 
JMI , JMK) 
JMI , JMK) 
JMI , JMK) 

JMI ,  JMK) 
+X 1*D I K( 

JMJ,  JMK) 
JMJ, JMK) 
JMJ, JMK) 
JMJ, JMK) 
+X1*D I J ( 


+X1*CD I JK( 
+X1*CDIJK( 
+X 1*CD I J  K ( 
+X1*CD I K J ( 
+X 1*CD I KJ ( 
+X 1*CD I K J ( 
+X 1*CD I KJ ( 
I BK, KBK) 
+X1*CDJKI ( 
+X1*CDJK I ( 
+X1*CDJK I ( 
+X1*CDJKI ( 
I BK, JBK) 


IB, JB, 
I K, JB, 

I K,  JK, 
I B, KK, 
I B, KB, 
I  K, KK, 
I  K, KB, 

JB,  KK, 
JB, KB, 
JK, KB, 
JK, KK, 


KBK) 

KBK) 

KBK) 

JBK) 

J3K) 

JBK) 

JBK) 

I  BK) 
I  BK) 

I  BK) 
I  BK) 


NORB 

NOB 

J3 

JA) =0. 5DQ*(FHH3( JB, JC, JA)+FHH3( JC,  JB,  JA) ) 
JA)=FHH3(JB, JC, JA) 

JA, JA)=( LHH3( JB, JC, JA, JA)  +  LHH3( JC, JB, JA,  JA) )*0.  25D0 
JA, JA)=LHH3( JB, JC, JA, JA) 


I F ( I S . GT. NORB ) RETURN 
DO  12  JB= I S, NORB 
DO  12  JC=1, NOB 
DO  12  JD=1, NOB 

LHH3C JD, JC, JA, JB)=LHH3(JD, JC, JA, JB)*0.  25D0 
LHH3( JC, JD, JB, JA)=LHH3( JD, JC, JA, JB) 

CONTINUE 

RETURN 

END 

SUBROUTINE  TINT3C I NTL I  3, NULL3, RC) 

IMPLICIT  REA  L*  8 ( A-H, O-Z ) 

REAL* 3  EXPCOE(5,10),ORBEXP(15), I  NT EG (5, 3, 5, 3, 5, 5), I NTEG1(  5,  5,  5, 
. H(5,5,3), I NTEG2 ( 5, 5, 5, 5), I  NT EG  3 ( 5, 3, 3, 3 ), LH 2,  LHH 2 
INTEGER  QN(15),NOBT(3),FDUB, INFOC4) 

COMMON/ ALL/ EX PCOE, ORBEXP, H, CHARGE, QN,NOBT,  I SYM, FDUB 
COMMON/ I NTRA3/ I NTEG 
COMMON/ SYM/ IDAR(8,10) 

COMMON/TWO/FH2 ( 5, 5, 4) , FHH2( 5, 5, 4) , FAC2( 100) , LH2( 5,  5,  4,  4) ,  LHH2(  5 
.5,4,4), I  NT 2(4, 100), I NTN02 (  100 ) , NU LL2 ( 100 ) , L I  M2, I NTL I  2 
LOGICAL  RC1, RC2, RC3, RC, NULL2, NULL3C 100) 

I NTEGER* 2  LEN1/5000/ 

NULI =0 

DO  4  JA=2, 6,2 
DO  5  JB  =  1, I  NT L I  2 

I  F (  INTN02C JB) .NE. I DAR( JA, 3 ) ) GOTO 5 
I FCNULL2C JB) )G0T051 
READCl' (2000+ JB) *1000) INFO 
CALL  PO I  NT (FDUB, I NFO, 1 ) 

I F ( JA-4 ) 6, 7,8 

CALL  READ ( I NTEG1, LEN1, 0, LNR, 2,&100) 

RC1=. FALSE. 

G0T04 

CALL  READ( I NTEG2, LEN1, 0, LNR, 2, &100) 

RC2=. FALSE. 

G0T04 

CALL  READ ( I  NT EG 3, LEN1, 0, LNR, 2,&100) 

RC3=. FALSE. 


THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
THRE 
TINT 
TINT 
5), TINT 
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GOTO  4 

IF(JA-4)52,53,54 
RC1-. TRUE . 

G0T04 

RC2  = . TRU  E . 

G0T04 

RC3  =  . TRUE . 

G0T04 

CONTINUE 

INTLI 2=1 NTLI 2+1 

I  F (  I  NT LI 2.LE. 100)GOT010 

WRI TE(8,901) 

FORMAT ('  MORE  THAN  100  2-EL- I  NTS  IN  TR I  NT  * ) 
STOP 

I NTN02 ( INTLI 2)=IDAR(JA,3) 

I  F ( JA-4) 11, 12/ 13 

CALL  TWINT(3,3,4,  5,6,RC1) 

I  F (RC1 )G0T04 
GOTO  14 

CALL  TWINT(3,1,  2,5,6,RC2) 

I  F ( RC 2 ) G0T04 
GOTO  14 

CALL  TWINT(3/l/2/3/4,RC3) 

I  F ( RC3 )G0T04 

READCl* (2000+ INTLI 2) *1000) INFO 
CALL  POI NTCFDUB, INFO, 1) 

I F ( JA-4 ) 15, 16, 17 

CALL  READ ( I NTEG1, LEN1, 0, LNR, 2, *100) 

G0T04 

CALL  READ ( I NTEG 2, LEN1, 0, LNR, 2, *10  0) 

G0T04 

CALL  READ ( I  NT EG 3, LEN 1, 0, LNR, 2, *10  0) 

CONTINUE 
F 1  =  2 . D  0 
F  2  =  2 . D  0 
F3=2 . DO 

I F ( I DAR (1,2) .NE. I DAR( 2, 2 ) . OR . RC1) F 1  =  0 .  DO 
I F ( I DAR (3, 2) .NE. I DAR ( 4, 2 ) . OR . RC2 ) F 2 =0 . DO 
I F ( I DAR(5, 2) .NE. I D ARC  6, 2 ) . OR . RC3 ) F3 =0 . DO 
L I M1B= I DAR( 1, 4) 

L 1B= I DAR ( 1/ 5 ) 

M1B= I DAR( 1,6) 

I B 1= ( IDARC 1, 7) -1) *5 
L I M 1K= I DAR ( 2, 4 ) 

L 1K= I DAR ( 2, 5 ) 

M1K= I DAR ( 2, 6 ) 

I  K 1  =  (  I  D  A  R  (  2  ,  7 )  - 1 )  *  5 
L  I M 2 B  = I DAR (3,4) 

L  2  B  =  I DAR( 3,5) 

M  2  B= I DAR (3,6) 

I  B  2  =  (  I  D  A  R  (  3  ,  7 )  - 1 )  *  5 
L I M2K= I DAR ( 4, 4 ) 

L2K= I DAR( 4,5) 

M2K= I DAR ( 4, 6 ) 

IK2  =  ( I D  AR ( 4 , 7 ) - 1 ) *  5 
L I M3B= I DAR ( 5,  4 ) 

L3B= I DAR (5,5) 

M3B= I DAR( 5,6) 

I B3=( I DAR( 5, 7 ) -1) *5 
L I M3K= I DAR (6,4) 
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L3K=IDAR(6,5) 

M3K=IDAR(6,6) 

I K3  =  ( I DAR(6, 7)-l)*5 
DO  1  JA  =  1, L I M IB 
N1B=QN( I Bl+JA) 

OElB=ORBEXP( I Bl+JA) 

EN 1B-ENM I (NIB, L1B/M1B/ OE IB ) 

DO  1  JB  =  1,  LIM1K 
N1K=QN( I Kl+JB) 

OE  1KS0RBEXP( I Kl+JB) 

EN 1K=EN1B*ENM I (NIK, L1K, M1K, OE1K) 

H1=F1*H(JA,JB,  !  D  AR  ( 1,  7)  ) 

DO  1  JC=1, L I M2B 
N2B=QN ( I B2+JC) 

OE2B=ORBEX  P( ! B2  +  JC) 

EN2B-EN 1K*ENM I ( N  2  B , L2B,M2B, OE2B ) 

DO  1  J  D  =  1 , L I M  2  K 
N2K=QN ( I K2+ JD ) 

OE2K=ORBEXP ( ! K2+JD) 

EN2K=EN2B*ENM l ( N2K, L2K, M2K, OE2K) 

H2=F2*H( JC, JD, I D AR ( 3, 7 ) ) 

X6A= ! NTEG3 ( JA, JB, JC, JD)*F3 
DO  1  JE  =  1,  LIM3B 
N3B=QN( I B3+JE) 

OE3B=ORBEXP( I B3+JE) 

EN38=EN2K*ENMI ( N3B, L3 B, M3B,  OE 33 ) 

DO  1  JF=1, LIM3K 
N3K=QN( I K3+JF) 

OE3K=ORBEXP( I K3+JF) 

EN3K  =  EN3B*ENM I ( N  3  K , L3K,M3K, OE3K) 

C  THE  INTEGRALS  ARE  ARRANGED  AS: 

C  Xl=( 1/R21) * ( 1/R13)  X2=( 1/R12)*( 1/R23)  X3=( 1/R31 ) * ( 1/R12 ) 

C  X4=( 1/R13 ) * ( 1/R32)  X5=( 1/R32 ) * ( 1/R21 )  X6= ( 1/R23 ) * ( 1/ R3 1 ) 

X 1=RE P I (3,  N 2 B , L2B,M2B,OE2B,N3B,L3B,M3B,OE3B, N2K, L2K,M2K,  OE2K,  N3K, 
•  3K,M3K,0E3K,N1B, LIB, M1B, OE IB, NIK, L1K,  M1K,  OE1K) 

X2=REPI  (3, NIB, LIB, M1B, OE IB, N3B, L3B,M3B, OE3B, NIK, L1K, M1K,  OE IK, N3K, 
. 3K,M3K, OE3K, N 2 B , L2B,M2B,OE2B, N2K, L2K, M2K,  OE 2K ) 

X 3  =R E P I  (3, N3B, L3B, M3B, OE3B, N2B, L2B,M2B, OE2B, N3K, L 3 K ,  M 3 K ,  OE3K,  N2K, 
. 2K,M2K, OE2K, NIB, L1B,M1B, OE1B, NIK, L1K,M1K,  OE1K) 

X4-REPI (3, NIB, L1B,M1B, OE1B, N2B, L2B ,M2B, OE 28, NIK, L1K,M1K,  OE1K,  N2K, 
. 2K,M2K,OE2K,N3B, L3B,M3B, OE3B, N3K, L3K,M3K,  OE3K) 

X5=REP!  ( 3,  N3B, L3B, M3B, OE3B, NIB, L1B,M1B, OE1B, N3K,  L3K,M3K,  OE3K,  NIK, 
. 1K,M1K,0E1K, N2B, L2B,M2B,OE2B,N2K, L2K,M2K,OE2K) 

X6=REP I ( 3 , N 2 B , L  2  B ,  M  2  B  , OE2B, NIB, LIB, M1B, OE IB, N2K, L2K,M2K,  OE2K,  l.v 
. 1K,M1K,0E1K, N3B, L3B,M3B, OE3B, N3K, L3K, M3K,  OE3K) 

X7=H1*I  NTEGHJC,  JD,  JE,  JF) 

X8=H2* I NTEG2 ( JA, JB, JE, JF) 

X9  =X6 A*H ( JE, JF, I DAR( 5,7)) 

X=EN3K*(X1+X2+X3+X4+X5+X6)+X7+X8+X9 

I NTEG( JA, JB, JC, JD, JE, JF)=X 
1  I F ( X . EQ. 0 . DO ) NUL I =NU  L I  +  1 

RC=  TRUE. 

I F ( NU  L I  . LT.LIM1B*LIM1K*LIM2B*LIM2K*LIM3B*LI  3  K )  C= .  -  A  L.  F  . 

NULL3 ( I NTL I  3 ) =RC 
I F ( RC ) RETURN 

CALL  NOTE(FDUB, INFO)  imp n(D 

WR | TE (l'(3000+INTLI3)*1000)INFO(2),  INFO(2),  I  -  >  (  )/!  'F0 

WRITE (2) I  NT EG 
RETURN 

100  WR  I  TE(  6,  900 ) 


TINT 
TINT 
TINT 
TINT 
TINT 
TINT 
Tl  NT 
TINT 
TINT 
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TINT 
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Tl  NT 
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TINT 
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TINT 
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LTI  NT 
TINT 
LTI  NT 
TINT 
LTI  NT 
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LTI  NT 
TINT 
LTI  NT 
TINT 
LTI  NT 
TINT 
TINT 
TINT 
TINT 
Tl  NT 
TINT 
Tl  NT 
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TINT 
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TINT 
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STOP 

900  FORMAT ( 1  WRONG  RETURN  IN  I/O  ROUT') 

END 

SUBROUTINE  DENS3( LIMDI 3, EXPCOE) 

IMPLICIT  REAL*3(A-H,0-Z) 

CQMMON/S  PL  I  1/11/  I  2/J1/J2/K1/K2/L1/L2/LIMI  /  LI  MJ/  LI  MK/  L  I  ML/  JMI 
.MK/JML/ IEXP/JEXP/KEXP/LEXP 

COMMON/ DENS  I  3/D  I J ( 15 / 15 ) / D I K( 15 / 15 ) / DJK( 15 / 15 ) / CD  I JK( 5, 5, 15 ) 
,(5/5/15)/CDJi\l  (5/5/lb) 

EQU I  VALENCE ( L I  MV ( 1) , L I M I ) / ( I XV( 1 )  /  I  EXP) 

INTEGER  INFO(4)/FDU3/LIMV(3)/ IXV(3)/ INXV(50) 

INTEGER* 2  LEN2/1800// LEN3/3000/ 

REAL* 8  EXPCOE ( 5/10) 

LOGICAL  WDM/. FALSE./ 

I JN( I / J ) = I + ( J* ( J-l ) ) /2 
I F ( WDM ) GOTOl 
WDH=. TRUE. 

CALL  LOGIOUC INFO/ '3  ',&100) 

FDU  3  =  I NFO ( 1 ) 

1  DO  2  JA  =  l/2 
I S= JA+ 1 

DO  3  JB= I  5  /  3 

INDEX=1QQ*IXV(JA)+1Q*IXV(JB) 

IFCLIMDI 3 . EQ. 0 ) G0T04 

DO  5  JD=1/ LIMDI 3 

I F (  I NXV ( JD ) . EQ. INDEX) GOTO  3 

5  CONTINUE 

4  LIMDI 3  =  L I MD I  3  +  1 

IFCLIMDI 3 . GT . 5  0 ) GOTO  10  2 
I NXV (LIMDI 3) = INDEX 
L I M1  =  L I  MV ( JA) 

L I  M2  =  L  I  MV ( JB ) 

1X1=1 XVC  JA) 

I  X2  =  l XV(JB) 

DO  6  J B 1  =  1 / L I M 1 
DO  6  JK1=1/JB1 
JBK1= I JNCJKl/ JB1) 

EXP1=EXPC0E(JB1/ I Xl)*EXPCOE( JK1/ 1X1) 

DO  5  J B  2  =  1  /  L  I  M 2 
EXP2=EXPl*EXPCOE( JB2/ 1X2) 

DO  6  JK2=1/JB2 
JBK2= I JN( JK2, JB2) 

6  DIJ(JBK1/JBK2)=EXP2*EXPC0E(JK2/ 1X2) 

CALL  NOTE(  FDU3/  INFO)  ,  %  , 

WRITEC 1  *  I NDEX*1000) I NFO( 2), I NFOC  2) /  I NFOC  3)/ I  . F 0 ( 4 ) 

CALL  WRITECDI J/LEN2/0/ LENR/3/&101) 

3  CONTINUE 

2  CONTINUE 

C  THE  2-VECTOR  DENSITY  MATRICES  ARE  COMPUTED 
DO  10  JA=l/2 
I  S  =  JA+ 1 
DO  11  JB= I S/ 3 
JC= JB- JA 

I F( JA. EQ. 1 . AND . JC . EQ. 1 ) JC=3 
I  XI* I XVC  JA ) 

1X2=1 XVC JB) 

I X3  =  I  XV ( JC ) 

INDEX =1X1*100+1X2*10+1X3 
DO  12  J D  =  1 / L I MD I  3 
I F ( I NDEX. EQ. INXVC JD) ) GOTO  11 
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DNS  3 
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DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS3 
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DNS  3 
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DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS3 
DNS3 
DNS3 
DNS3 
DNS3 
DNS  3 
DNS3 
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DNS  3 
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DNS3 
DNS3 
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DNS3 
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>- 

*  ■  H 


.. 

. 

S 

. 

. 

\i«  '• 

. . 

. 


12 

13 

11 

10 

C 

16 

17 

18 

19 

20 

21 

22 

15 

14 

100 

101 

102 

900 

901 

902 


CONTINUE 

HMD  I  3  =  L  I  MD  I  3  +  1 

I F ( L I MD I  3 . GT . 50 )GOTO102 

I NXV ( L I MD I  3 )  =  I ND EX 

L I M1=L I MV( JA) 

L  I  M  2  =  L  I  i  1 V  (  J  B  ) 

L I M3=LI MV( JC) 

DO  13  JD  =  1,LIM1 
DO  13  JE  =  1/LIM2 

EXPl=EXPCOE(JD/ I Xl)*EXPCOE(JF, 1X2) 

DO  13  JF  =  1/LIM3 
EXP2=EXPl*EXPCOE(JF, 1X3) 

DO  13  JG=1,JF 
JFG  = I JN( JG/ JF ) 

CDIJK(JD,JE,JFG)=EXP2*EXPCOE(JG, I X3) 

CALL  NOTECFDU3, I NFO) 

WRITECl*  I  ND  EX* 1000 ) INFO(2)/ INFO(2), INFO(3), I NFO ( 4 ) 
CALL  WRITE (CD  I JK, LEN3,0,LENR, 3,&101) 

CONTINUE 

CONTINUE 


THE  DENSITY  MATRICES  TO  BE  USED  ARE  RFAD  IN 

DO  14  JA  =  1, 2 
I S  =  JA+ 1 
DO  15  08=18,3 
JC  =  JB - J A 

I  F(  JA.  EQ. 1 . AND . JC . EQ . 1 ) JC  =  3 
I NDEX=I XV ( JA)*100+I XV ( JB)*10 
READ  ( 1 1  I  ND  EX*  10  0 0  )  I  NFO 
CALL  POI NTCFDU3, INFO, 1) 

I F ( JC -2)18, 17,16 

CALL  READ (D I J, LEN2,0, LENR, 3,&101) 

GOTO  19 

CALL  READ (D I K, LEN2, 0, LENR, 3,&101) 

GOTO  19 

CALL  READ (D JK, LEN2, 0, LENR, 3,&101) 

I NDEX=IXV(JA)*100+IXV(JB)*10+I XV (JC) 

READ ( 1 ' I NDEX* 1000)1 NFO 
CALL  POI NT(FDU3, I NFO, 1) 

I F ( JC-2 ) 22, 21, 20 

CALL  READ  (CD  I  JK,  LEN3, 0,  LENR,  3,&101) 


GOTO  1 5 

CALL  READ (CD  I KJ,LEN3,0, LENR, 3, &101) 

GOTO  15 

CALL  READ ( CD JK I , LEN3,0, LENR, 3,&101) 

CONTINUE 

CONTINUE 

RETURN 

WR I TE ( 6 , 9  00 ) 

STOP 

WR ITE(6,901) 

STOP 

WR I TE ( 6 , 9  0  2  ) 

STOP 

FORMAT (  '  WRONG  RETURN  FROM  L0GI°U  >  ,rc  ,  ..  nrMQ,,x 
FORMAT ( '  WRONG  RETURN  FROM  l/O-ROUTI  Eo  1  '  ,J>  ' 
FORMAT  ('  DIMENSION  OF  I  NXV  IN  DENS  3  EXCFrDrrD  ) 


SUBROUT  I NE  FOUR EL ( NORB, NOB, LI MD I  X ) 

IMPLICIT  REAL*8(A-H,0-Z)  . 

COMMON/ FOUR/ FAC4( 3 00 ),FMH4( 5, 5,4), LHH  +  (  5 , 


5,4,4), I NT4 (8, 


DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS3 
DNS3 
DNS  3 
DNS  3 
DNS3 
DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS3 
DNS  3 
DNS  3 
DNS  3 
DNS3 
DNS  3 
DNS3 
FOUR 
FOUR 

300), LI M4, NFOUR 


. 

- 


.ULL4C 100) 


FOUR 


12 

11 


COMMON/ SP  LI  1/ I  1, I  2, Jl, J2,K1, K2, LI, L2, LIMI  ,  LI  MJ,  L  I  MK,  L I  ML,  JIl  I ,  J, IJ,  JFOUR 
.MK, JML, IEXP,JEXP/KEXP/LEXP  FOUR 

COMMON/ ALL/ EXPCOE(5,10),ORBEXP(15),H(5,5,3),CHARGE,QN,NOBT(3), I SYMFOUR 
. , FDUB  FOUR 

COMMON/SYM/ I DAR( 3,10)  FOUR 

COMMON/DENSIT/DI JK( 15, 15, 15) ,DIJL(15, 15,15 ) , D I KL( 15, 15,15 ) , DJKLC 15FOUR 
.,15,15),DI J( 15 ,15) , D I K( 15 , 15 ) , D I L ( 15,15 ),DJK( 15,15 ),DJL( 15, 15),DKLFOUR 
.  (15 ,15), Cl J(5,5),CI  K(5,5),CI L( 5, 5 ) ,CJK( 5, 5) , CJL( 5, 5 ) ,CKL( 5, 5)  FOUR 
LOGICAL  NULL4, LO I , LOJ, LOK, LOL,WDH/ . FALSE./, LC( 6)  FOUR 

COMMON/ I NTRA4/D12 (5,5,5,5),D13(5,5,5,5),D14(5,5,5,5),D23(5,5,5,5),FOUR 
.024(5, 5,5, 5), 034(5, 5,5, 5) 

INTEGER  QN (15), FDUB, I  V ( 3 ) 

REAL* 3  LHH4 

I J  N ( I , J ) =M I N  0 ( I , J)  +  (MAXO( I , J ) * ( MAX  0 ( I ,J)-l))/2 
I F(WDH)G0T011 
WDH= . TRUE . 

DO  12  JA=1, 100 
NULL4(JA)=. FALSE. 

DO  1  J  A  =  1 , L I  M  4 
I F ( NU  LL4 ( JA) ) GOTOl 
I  1= I NT4 ( 1, JA) 

12=1 NT4 ( 2 , J A) 

J1=INT4(3,JA) 

J  2  =  I NT4( 4, JA) 

K 1 = 1 NT4( 5, JA) 

K2= I NT4 ( 6, JA) 

Ll= I NT4 ( 7, JA) 

L  2  =  I NT4( 8, JA) 

CALL  SYM34 ( NOBT, LO I , LOJ, LOK, LOL, ISYM,&1,4) 

CALL  FOINT(FDUB,&l,NULL4( JA) ) 

ASSIGN  8  TO  I  CASE 
I F ( LOK ) ASS  I GN  7  TO  I  CASE 
I F ( LOJ ) ASS  I GN  6  TO  ICASE 
I F ( LO I ) ASS  I GN  5  TO  ICASE 
CALL  DENS( L I MD I  X, EXPCOE ) 

FACTOR=FAC4(JA)+FAC4(JA) 

DO  4  I B  =  1 , L I M I 
I  V  ( 1 )  =  I  3 
DO  4  IK-1, LIMI 
I  V  (  2  )  =  I  K 
I B  K  = I J  N ( IK, IB) 

DO  4  J  B  =  1 ,  L  I  M J 
I V(3)=JB 
DO  4  JK=1, L I MJ 
I V( 4 ) =JK 
JBK= I JN( JK, JB) 

DO  4  KB=1, L I MK 
I  V ( 5 ) =KB 
DO  4  K K  =  1 , L I MK 
I  V ( 6) =KK 
KBK= I JN( KK, KB) 

DO  4  LB-1, LIML 
I V ( 7 ) -LB 
DO  4  LK  =  1, L I  ML 
I  V ( 3 ) =LK 

y?-7ni  9  M  Snorri  1 ) )  I V< I DARC2, 1) ) , I V< I DAR< 3, 1>>, I V< I DAK( 4, 1) ) )*QFOUR 
34(  V(IDiR(5  1)  IV  BAR  6,D),  V(IDAR(7,1)).IV(IDAR(8,1)))  +  013(IVF0UR 

!  ( I^DAR(  1/1) )  V  ( I  DAR( 2, 1 ) ) 0  V( I  DAR(  5, 1 ) ) ,  I  V(  I  DAR(  6, 1)))*D24(IV(I  DAK  FOUR 
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M  V  ?' I!^'',AR(7'1))'  I  v<  I  DAR(  8,  1) )  )  +  D  14(  I  V(I!)AR(1 

‘lDAR{i°i?i2|Vf  inlof  ,V(I  (  ^  1>  >  >*D25C  I  V(l  "-'(3,1)), 

•  I  0 AK (  4 ,  1 )  )  ,  I  .  (  I  >  ..■  (  5  ,  1 )  )  |  V(  I  DAR  (6,1))))  *FACT0R 

GOTO  I  CAS E , (5,6,  7,8) 

FHH4(  I  3, I K,JM| )=FMM4( I  ’, I K, JM I  ) +X  1*D JKL ( JBK, K5K, LBK ) 
X2=X1*DKL(KBK, LBK)  '  '  J 

LHM.4  (  I  K,  JB,  Jit  I  ,  JMJ )  =  LHH  4  (  I K, JB,  JM  I  ,  JM  J)  +  C  I  J(  I  B, JK ) *X2 
Li  ’It 4  (  I  K,  JK, JM I  ,  Jr  1 J  )  =LHH4  ( I K, JK,  JM  I  ,  JMJ)  +  C I  J(  I  B,  JB  )  *X2 
LHM4  (  I  B,  JK,  J  1 1  ,  Ji  t  J  )  -  LHH  4  (  I  B,  JK,  Jfl  I  ,  JMJ  )  +  C  I  J  (  I K, JB ) *X2 
LHH  4  (  I  B,  JB,  JM.  I  ,  JMJ  )  -LHH4  (  I  B,  JB,  JM  I  ,  JMJ  )+CIJ(IK,JK)*X2 
X2=X1*DJL( JBK, LBK) 

LHH4(  I  K,  KB, JM I , JMK)=LHH4( I K, KB, JM I , JMK )  +  C I K ( I B, KK ) * X2 
LHH 4 (  I  K,  KK, JM I , JMK) = LHH 4 ( I K, KK, JM I , JMK) +C I K( IB,KB)*X2 
LHH4  (  I  B ,  KK, JM I , JMK)=LHH4( I B, KK, JM I , JMK)+CI K( I K, KB ) *X2 
LHH 4  (  I  B,  KB, JM I , JMK) =LHH4 ( I B, KB, JM I , JMK) +C I K( I K,  KK ) *X2 
X2-X1*D JK( JBK,KBK) 

LHH 4  (  I  K,  LB, JM I , JML) =LHH4 ( I K, LB, JM I , JML) +C I L ( I B , LK ) *X 2 
LHH  4  (  I  K,  LK, JM I , JML) =LHH4( I K, LK, JM I , JML)+CI L( I B,  LB)*X2 
LHH  4  (IB,  LK, JM I , JML) =LHH4( I B, LK, JM I , JML) +C I L( I K, LB ) *X2 
LHH4 (  I  B,  LB, JM I , JML) =LHH4( I B , LB, JM I , JML ) +C I L( I K,  LK ) *X2 
FHH4( JB, JK, JMJ) =FHH4 ( JB, JK, JMJ)+X1*DI KL( I BK, KBK, LBK) 

X2=X1*D I L( I BK, LBK) 

LHH 4 (JK,KB,JMJ, JMK ) =LHH4 ( JK, KB , JMJ, JMK) +CJK(JB,KK)*X2 
LHH  4 ( JK,  KK, JMJ, JMK ) =LHH4(JK,KK, JMJ, JMK )  +  0 JK ( J5 ,  KB ) *X2 
LHH 4 ( JR , KK, JMJ, JMK ) =LHH4 ( JB , KK, JMJ, JMK) +C JK ( JK, KB ) *X2 
LHH4 ( JB,  KB, JMJ, JMK ) =LHH4 ( JB , KB, JM J, JMK )  +  CJK ( JK,  KK ) *X2 
X 2  =  X 1  * D  I  K(  I  BK,  KBK) 

LHH4( JK,  LB, JMJ, JML) =LHH4 ( JK, LB, JMJ, JML) +CJL ( JB,  LK) *X2 
LHH4( JK,  LK, JMJ, JML) =LHH4 ( JK, LK, JM J, JML) +CJL( JB, LB ) *X2 
LHH4( JB, LK, JMJ, JML) =LHH4( JB, LK, JMJ, JML) +CJL( JK, L3)*X2 
LHH4(  JB,  LB, JMJ, JML) =LHH4 ( JB, LB, JMJ, JML) +CJL( JK, LK)*X2 
FHH4 (KB,  KK, JMK) =FHH4 (KB, KK, JMK) +X 1*D I JL ( I BK, JBK, LBK) 

X2=X1*DI J ( I BK, JBK) 

LHH 4  (  KK,  LB, JMK, JML) =LHH4 ( KK, LB, JMK, JML) +CKL( KB, LK) *X2 
LHH4 ( KK, LK, JMK, JML) =LHH4 (KK, LK, JMK, JML) +CKL( KB, L3 ) *X2 
LHH  4  (  KB,  LK, JMK, JML) =LHH4(KB, LK, JMK, JML)+CKL( KK, LB)*X2 
LHH 4  (  KB,  LB, JMK, JML) =LHH4 ( KB, LB, JMK, JML) +CKL( KK, LK)*X2 
FHH4  (LB,  LK, JML)=FHH4( LB, LK, JML ) +X1*D I JK ( I BK, JBK, KBK) 

CONTINUE 
CONTINUE 
DO  21  JA= 1, NORB 
DO  22  JB  =  1, NOB 

DO  22  JC  =  1,  JB  ,  o  ianx 

FHH4(  JB,  JC,  JA)  =  0. 2  5D0*(FHH4(  JB,  JC,  JA)+iHJH4(  JC,  J.,  JA)  ) 

FHH4(JC, JB, JA)=FHH4( JB, JC,  JA) 

LHH 4  (  JC,  JB,  JA,  JA)  =  (  LHH 4  (  JC,  JB,  JA,  JA)  +  LHH4  (  JR ,  JC ,  JA,  JA)  )  *  w  .  L..;  )0 
LHH4( JB, JC, JA, JA)=LHH4( JC, JB, JA,  JA) 

I  S  =  JA+ 1 

I  F ( I S.GT.NORB) RETURN 
DO  21  JB= I S, NORB 
DO  21  JC= 1, NOB 

DO  21  JD=l,NOB  x  n 

LHH 4 ( JC, JD, JA, JB ) =LHH4 ( JC, JD, JA, J 
LHH4( JD, JC, JB, JA)=LHH4( JC, JD, JA, JR ) 

RETURN 

END 

SUBROUTINE  FO I  NT ( FDUB, *,NULL) 

IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/TWO/FH2  ( 5 ,5,4),  FHH2  ( 5,  5/4),FAC2(100)/LH2(5/5/4/U)  /  LHH2  ( 5 


,  l)FOUR 
I  '/(FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FOUR 
FO  I  N 
FO  I  N 
FO  I  N 
,  FO  I  N 


. 


10 
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2 


•  5 , 4 , 4 ) ,  I  UT2  (  4 ,  10  0  ) ,  |  NTN02  (  100 ) ,  NULL2  ( 100  )  I  I  M 9  I  r '  T  L  I  °  mi  m 

COMMON/ SYM/  I DAR ( 8, 10)  '  _/  ■  .  ' 

LOGICAL  NULL,RC,LC(6),NULL2  L 

lCrC3>1'2'3'4'1'2'5'6'1'2'7'8'3'‘+'5'6'^4'7'8'5'6'7'8/'aFO,N 

DO  2  JB  =  1, 6 
DO  3  JC  =  1, I NTL I  2 

I F( IDAR( JB,8) .NE. I NTN0  2 ( JC) ) GOTO  3 
LC ( JB ) =NULL2 ( JC) 

GOTO  3 1 
CONTINUE 
I NTL I  2  =  1 NTL I  2  +  1 
I  NT NO 2 ( I NTL I  2  )  =  I  D AR ( J3 , 8  ) 

CALL  TV/ 1  NT  (4,  IT(1/JB)  /  IT(2,JB),IT(3,JB),  IT(4/JB)/RC) 

LC ( JB ) =RC 
JC  = I NTL I  2 

CALL  LI ES(LC/JC/JB/FDUB) 

CONT I NUE 

NU  LL  =  (  LC ( 1) .OR. LC ( 6 ) ) . AND. ( LC ( 2 ) . OR . LC ( 5 ) ) . AND . ( LC ( 3 ) . OR . LC ( 4 ) ) 

I  F ( NU LL ) RETURN1 
RETURN 
END 

SUBROUTINE  DENS  ( L I MD I  X,  EXPCOE) 

IMPLICIT  REAL* 8 ( A-H, O-Z ) 


FOI  N 
FOI  M 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FO  I  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
FOI  N 
DNS  4 
DNS  4 


COMMON/SPLI  1/1  1/  I2/J1/J2/K1/K2/L1/L2/LIMI  ,  LI  MJ,  L I  MK,  L I  ML,  JMI  ,  JMJ/  JDNS4 
. MK/ JML, I  EXP, JEXP, KEXP, LEXP  DNS 4 

COMMON/DENS  I T/D I JK ( 15, 15, 15 ) , D I J L( 15, 15, 15 ) , D I KL ( 15, 15, 15 ) , D JKL ( 15DNS4 
.,  15, 15),DIJ(15, 15),DI K(15, 15),DI L( 15, 15 ) , DJK( 15, 15 ) , DJL( 15, 15 ) , DKLDNS4 
.  ( 15,  15),  Cl  J ( 5, 5), Cl K ( 5 , 5), Cl L ( 5, 5),CJK( 5, 5 ) , C JL (5, 5), CKL( 5, 5)  DNS 4 

I  NT  EGER  LIMVC4),  I  XV  (4),  I  NXV(50),  I  NFO(  4  ) ,  FDU,  1112(3,  4) /l,  2,  3,  1,  2,  4,  1DNS4 
.,3, 4, 2, 3, 4/  DNS  4 

EQUI VALENCE ( LIMV(l), LI  Ml ) , ( I  XV ( 1) ,  I  EXP)  DNS4 

I NTEGER*2  LEN1/2  7000/, LEN2/1800/, LEN3/2  00/  DNS 4 


LOGICAL  ’/DM/.  FALSE.  / 
REAL*8  EXPCOEC  5,10) 

I JN ( I , J)=l+( J* ( J- 1) )/2 
I F (WDH)GOTOl 
WDH= . TRUE . 

CALL  LOG  I OU ( I NFO, '3 
FDU= I NFO ( 1 ) 


1  ,&101) 


DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS4 


THE  SIX-VECTOR  DENSITY  MATRICES  ARE  COMPUTED  AND  WRITTEN  ON  U  ’  I  ^  ( 3 )  DNS4 
DO  2  JA  =  1, 2  DNS4 


I S  1  =  JA+ 1 
DO  3  JB  =  I  SI, 3 
I S2  = JB  + 1 
DO  4  JC= I S 2 , 4 

INDEX  =  100* I  XV ( JA)  +  10* I  XV  (  JB )  +  I  XV ( JC ) 

I F ( L I MD I  X . EQ . 0 ) GOTO 5 

DO  6  JD  =  1, LIMDIX 

I F ( I NXV( JD) . EQ. I NDEX ) G0T04 

CONTINUE 

L I MD I  X  =  L I MD I X+ 1 

IFCLIMDI X . GT . 5  0 ) GOTO  10  2 

I NXV ( L I MD I  X )  =  I NDEX 

CALL  NOTECFDU, INFO)  1Mrn/_.  1MCnn» 

WRITE  Cl'  INDEX*1000)  I  NFO  (  2 )  ,  I  F  0  (  2  ) ,  I  FO(  3  ) ,  I  ..F  - 

L I M 1  =  L I  MV ( JA) 

L I  f  1 2  =  L I  MV ( JB ) 

L  I  M  3  =  L  I  M  V  (  J  C  ) 

1X1=1 XV (JA) 


DNS  4 
DNS4 
DNS  4 
DNS4 
DNS4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS4 
DNS4 
DNS  4 
DNS  4 
DNS4 
DNS4 
DNS4 
DNS4 


. 

. 

. 


. 

.  . 

. 

. 


1X2=1 XV(JB) 

I X3  =  I  XV ( JC ) 

00  7  JB1=1,LIM1 
DO  7  JK1=1,JB1 
JBK1=I JN ( JK1, JB1) 

EXP1=EXPC0E(JB1, I  XI ) * EXPCOF ( JK1/  1X1) 

DO  7  JB  2  =  1, L I  M2 
EXP2=EXP1*EXPC0E(JB2, 1X2) 

DO  7  JK2  =  1, JB2 
J  B  K  2  =  I JN( JK2, JB2 ) 

EXP3=EXP2*EXPCOE(JK2, I X2) 

DO  7  JB3=1, L I  M3 
EXP4=EXP3*EXPCOE(JB3, 1X3) 

DO  7  JK3=1/JB3 
J  B  K  3  =  I J  N ( JK3, JB3 ) 

DJKL  ( JBK1,  JBK2,  JBK3)=EXPC0E(JK3,  I  X3)*EXP4 

CALL  WRI TE(DJKL,LEN1,0, LENR,3,&100) 

CONTINUE 

CONTINUE 

CONTI NUE 

THE  DENSITY  MATRICES  CONTAINING  FOUR  VECTORS 

DO  10  JA=l/3 
I  S  =  J  A+  1 
DO  11  08=13,4 
1X1=1 XV(JA) 

1X2=1 XV(JB) 

I  NDEX= ( I Xl*10+I X2)*10 


DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS4 
DNS4 
DNS  4 
DNS4 
DNS4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS4 

ARE  COMPUTED  AND  WR I TTEDNS4 

DNS4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 


DO  12  JC  =  1,LIMDIX 
I F( I NXV( JC) . EQ. I ND EX) GOTO  11 


12 


I 


.3 


CONTINUE 
LIMDI  X  =  L!MDl X+l 
I NXVC  L1MDI X)  =  1 NDEX 
L  I M 1 = L  I M  V  ( J  A ) 

L I  M2  =  L I  MV ( JB ) 

DO  13  JB1  =  1,LIM1 
DO  13  JK1=1,JB1 
JB  K 1  =  I JN ( JK1, JB 1 ) 

EXP1  =  EXPC0E(JB1,  I  X1)*EXPC0E ( JK1,  1X1) 
DO  13  JB  2  =  1, L I  M2 
EXP2=EXP1*EXPC0E( JB2, 1X2) 


DO  13  JK2  =  1, JB 2 
JBK2  =  I JNCJK2, JB2) 

DIJ(JBK1/JBK2)=EXP2*EXPC0E(JK2,  1X2) 

CALL  NOTE ( FDU, I N F 0 ) 

WR  I  TEC  1'  I  NDEX*  10  00)  I  NFO  (  2  ) ,  I  NF0(2), 
CALL  WRITECDI J, LEN2,0, LENR, 3,&100) 


I N  F  0 ( 3 ) , I NFO ( 4 ) 


•1  CONTINUE 
•0  CONTINUE 

:  THE  MIXED  DENSITY-MATRICES  OF 
I  REP=  0 

DO  20  JA=1,3 
I  S  =  JA+ 1 
DO  21  J B  = I S , 4 


TWO  VECTORS  ARE  COMPUTED 


DNS  4 
D  NS  4 
DNS  4 
DNS4 
DN54 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS4 
DNS4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS4 


I REP= I R  EP+ 1  DNS4 

1X1=1 XV(JA)  DNS 4 

I  X  2  =  I  XV ( JB  )  DNS 4 

I N D E X  = I  X 1* 10+ I X2  DNS 4 


DO  22  JC  =  1, LI MD I  X  DNS4 

I F  (  I  NXVC JC) .  EQ. I NDEX) GOTO 21  DNS4 

CONTINUE 


. 


L I MD I X  =  L I MD I X+ 1 
I  NX V ( L 1  HD  I  X )  =  I ND  E  X 
L I M1=L I MVC  JA) 

L I  M2 =L I  MV ( JB ) 

DO  23  J  1B  =  1/  LI  Ml 
DO  23  J1K=1,LIM2 

23  Cl  J(J13,J1K)=EXPC0E(J1B, IX1)*EXPC0E(J1K, 1X2) 

CALL  NOTE ( FDU ,  I NFO  ) 

WRITEC1' I ND EX *1000)  INFO(2)/ I NFO ( 2 ) , INFOC3),  INF0(4) 

CALL  WR 1 TE ( C I J, LEN3,0,LENR,3,&100) 

21  CONTINUE 

20  CONTINUE 

C  THE  DENSITY  MATRICES  TO  BE  USED  IN  FOUREL  ARE  RFAD  IN 

DO  30  J A=  1/  4 

I  NDEX=I XV ( I  M2 ( 1, JA)  )*100  +  l XV ( I  M2 (2, JA) )*10+l XV (  I  M2 (3,  JA) ) 
READ ( 1 ' I NDEX* 1000 ) INFO 
CALL  PO I  NT ( FDU, INFO, 1) 

GOTO C  31,  32,  33, 34 ) , JA 

31  CALL  RE AD ( D I JK , L EN 1 , 0 , L ENR , 3 ,  ft  1 0 0  ) 

GOTO  30 

32  CALL  R E AD ( D  I  J L ,  L EN  1 ,  0 ,  L ENR ,  3 , &  1 0 0 ) 

GOTO  30 

33  CALL  READCDI KL, LEN1, 0, LENR,3,&100) 

GOTO30 

34  CALL  READOJKL, LEN1, 0, LNR,&100) 

30  CONTINUE 

C  THE  DENSITY  MATRICES  WITH  TV/O  SUBSCRIPTS  ARE  READ  IN 

I  R  E  P  =  0 

DO  40  JA=  1, 3 

I S=JA+ 1 

DO  40  JS= I S, 4 

INDEX=I XV(JA)*10+I XV  (JB) 

IREP=IREP+1 

READ ( 1 ' I ND  EX* 1000 ) I NFO 
CALL  PO I  NT (FDU, I NFO, 1 ) 

GOTO (  41,42,  43,  44,  45, 46 ), I  REP 

41  CALL  READ (CIJ,LEN3,0,LENR,3,&100) 

G0T047 

42  CALL  READ (Cl K, LEN3,0, LENR, 3,&100) 

G0T047 

43  CALL  READ(CI L, LEN3, 0, LENR, 3,&100) 

G0T047 

44  CALL  READ (CJK, LEN3, 0, LENR, 3, &100 ) 

G0T047 

45  CALL  READCCJL, LEN3, 0, LENR, 3,&100) 

G0T047 

46  CALL  RFAD ( CKL, LEN3, 0, LENR, 3, A  100 ) 

47  INDEX* I NDEX* 10 
READC1* I NDEX* 1000 ) INFO 
CALL  PO I  NT ( FDU, INFO,l) 

GOTO (  5 1,  52,  53, 54,  55,  56  ), I  REP 

51  CALL  READ(DI J, LEN2, 0, LENR, 3, & 100 ) 

GOTO40 

52  CALL  READCDI K, LEN2,0, LENR, 3, &100) 

GOTO40 

53  CALL  READCDI  L,  LEN2,  0,  LEND,  3, &100) 

G0T04  0 

54  CALL  READCDJK,  LEN2,0,  LENR,  j>,  &100 ) 

GOTO40 

55  CALL  READ (DJL,LEN 2,0, LENR, 3 , & 1 0 0 ) 


DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DN54 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 
DNS  4 
DNS4 
DNS  4 
DNS  4 
DNS  4 
DNS  4 
DNS4 


j  g 


GO TO 40 

CALL  RFAO(  DKL,  L E N 2 /  0,  LENR,  3, *100) 

CONTINUE 

RETURN 

WRITE(6,900) 

STOP 

WR I TE ( 6,901) 

STOP 

WRITEC  6,902  ) 

STOP 

FORMAT (  '  WRONG  RFTURN  IN  I /O-ROIJT  I 
FORMATC'  LOGIOU  H£S  WRONG  RFTU RN  |L 
FORMAT ('  DIMENSION  OF  I NXV  |M  DFNS 
END 

SUBROUT  I  ME  L  I  FS  (  LC,  JC  I  ,  JR  I  ,  FDUB  ) 
IMPLICIT  RFAL* 8 ( A-H, O-Z ) 

INTEGER* 2  LFN/5000/ 

LOGICAL  LC ( 6 ) 

COM  M  ON/INTRA4/D12(5,5,5,5),ni3(5,5 
.  024(  5,  5,  5,  5),  034  (  5,  5,  5,  5) 

INTEGER  FDUB, I NFO( 4), IRFP/0/ 

I  F(  I  RFP .  EO  .  DGOTO20 
I RFP= 1 

DO  21  JA=  1,  5 

DO  21  JB  =  1,  5 

DO  21  JC  =  1,  5 

DO  21  JD  =  1,  5 

D12( JA, JB, JC, JD)=0.D0 

WR I TE ( 1* 10000000)012 

I F (  . NOT . LC ( J3 I ) ) GOT  0 1 

GOTO(  2,  3,  4,  5,  6,  7),  JB  I 

READ( 1' 10000000)012 

RFTURN 

REAO( 1' 10000000)013 
RETURN 

READ (  1*  10000000)014 
RETURN 

REAO(  1*  10000000  )023 
RFTURN 

RFAP( 1* 10000000)024 
RFTURN 

REAP( 1' 10000000)034 
RFTURN 

RFAO(  1* (  200 0  + JC I )* 10  OO ) I NFn 
CALL  Pn | NT ( FHUB, I NFO, 1) 

GOTO(  8,9,  10,  11,  12,  13 ) ,  JB  I 

CALL  RFAO( 012 , LEN, 0, LNR, 2, *100) 

RFTURN 

CALL  READ (013, LEN, 0, LNR, 2, *10  0 ) 
RFTURN 

CALL  RFAD( 014, LEN, 0, LNR, 2, *100) 
RFTURN 

CALL  RFAO ( 02  3, LEN, 0, LNR, 2, *100) 
RFTURN 

CALL  RFAD( 024, LEN, 0, LNR, 2, &100) 
RFTURN 

CALL  RFA0(034, LEN, 0, LNR, 2, *100) 
RETURN 

WR I TE( 6,900) 

STOP 


DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

DNS  4 

N  0  FNS  '  ) 

0  NS  4 

DFNS  '  ) 

DNS  4 

EXCEEDED' ) 

DNS  4 

DNS  4 

LIFS 

LI  FS 

LIFS 

L  1  FS 

5,  5),  n  14  (  5,  5,  5,  5  ),  0  23  (  5,  5,  5,  5  ),  LI  FS 


I  I  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LIES 
LI  FS 
L  I  FS 
L  I  FS 
LI  FS 
LI  FS 
LI  FS 
L  I  FS 
LIES 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
LI  FS 
I  I  FS 
LI  FS 
I  I  FS 
LI  FS 
LI  FS 
I  I  FS 
LI  FS 
LI  FS 
LI  FS 
L  I  FS 
LI  ES 
LI  FS 
LI  FS 
LI  FS 
LI  ES 
LIES 
LI  FS 


.  .  ' 


•*  i  mi 


1 1/ 


■  '  r  ,  '  • 


300 


FORMAT (  'WRONG  RETURN  IN  I/O  ROUT  IN  LIES, FOUREL ' ) 
END  * 


SUB  ROUT  I  NE  COMB  I  N(  METHOD,  I  SYM,  ORB,  NOBT,  Fill,  FHH 1,  FH  2 ,  FHH2,  FHH3, 
. ,  LH2 ,  LHH 2 , LHH3, LHH4, WK, EXPCOE, EXH , EXHH , TAU ) 

IMPLICIT  REAL*8(A-H,0-Z) 


C 


THIS  ROUTINE  SETS  UP  THE  F&L-MATRI  CES  AS  RFQU I  RED  BY  HINZE 
COMMON /H I NZ/S, F, L, NOB, NORB, CLOSED 
COMMON/ RENOR/ I NNO ( 10 ) , I  STAC  3 ) , I NNORC 10 ) 


LIES 
LI  ES 
FHH4COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
QUANCOMB 


c 

BE  MINIMIZED 

COMB 

c 

METHOD= 1 

COMB 

c 

M 1  N 1 M  1  Z  E : 

<H  > 

CONSTRAINT: 

1 

COMB 

c 

METHOD =2 

COMB 

c 

MINIMIZE: 

<(H-E)**2> 

CONSTRAINT: 

1 

COMB 

c 

METHOD=3 

COMB 

c 

MINIMIZE: 

<(H-WK)**2> 

CONSTRAINT: 

1 

COMB 

c 

METHOD=4 

COMB 

c 

MINIMIZE: 

<H-WK>**2/< (H-WK) **2> 

CONSTRAINT: 

1 

COMB 

c 

METHOD=5 

COMB 

c 

MINIMIZE: 

<H-WK>**2/<(H-r)**2> 

CONSTRAINT: 

1 

COMB 

31 


4 ) ,  F  CO 


. HH4 (  5  /  5/  4 ) / LH2 ( 5, 5, 4, 4) , LHH2 ( 5, 5, 4, 4) , LHH3 ( 5, 5, 4, 4) , LHH4C  5, 5,  4, 4) ,  COMB 


.  F(5,5,4), L(5,5, 4, 4 ) , EXPCOE ( 5, 10 ) , S ( 5, 5, 3 ) , EXH ( 3, 4 ) , EXHH ( 3,  4 ) 
LOGICAL  CLOSED (3,4) 

INTEGER  ORB ( 3 ) , NOBT ( 3 ) 

NOB -NOBT ( I SYM) 

NORB=ORB ( I SYM ) 

I  ST = I  STAC  I SYM ) 

GOTOC 1, 2, 3, 4, 4, 4), METHOD 
FIRST  VARIATIONAL  SCHEME 
DO  5  JA= 1, NOB 
DO  5  JB - 1, NOB 
DO  5  JC=1, NORB 

F(  JA,  JB,  JC ) =FH1( JA, JB, I NNORC I ST  +  JC) ) +FH2 ( JA, JB,  I NNORC I ST+ JC) ) 
DO  5  JD=l,NORB 

L(JA,JB,JC,JD)=0.5D0*LH2(JA,JB,I NNORC I ST  + JC ) ,  I  NINOR  (  I  ST  + JD  ) ) 
RETURN 

SECOND  VARIATIONAL  SCHEME 

CALL  ENERC I SYM, EXPCOE, FH1, FH2, NOBT, OR p ,  EXH  ) 

EVH  =  0 . D  0 


DO  8  JA=1, 3 
LI NORB=ORB( JA) 

I F( LI NORB . EQ. 0 ) GOTO  8 
DO  9  JB- 1, LI NORB 
EVH=EVH+EXH( JA, JB) 

CONTINUE 
GOTO  3 1 

THIRD  VARIATIONAL  SCHEME 
EVH=WK 

FACT  =  2 . DO*  EVH 
DO  6  JA= 1, NOB 
DO  6  JB= 1, NOB 
DO  6  JC=1, NORB 

F(JA/JB^Jcf=FHHl(JA,JB/JE)+FHH2(JA/JB/JE)+FHH3(JA,JB/JE)+FHHU( 

. B, JE) -FACT* (FH1C JA, JB, JE) +F 12 (JA,  J  ,  J  ) ) 

DO  6  JD=l,NORB 

L(JA/JB^JC/JD^=(LHH2(JA/JB/JE/JF)+LHH3(0A/JB/JE,JF)+LHH4(JA/JB 
. JF)-FACT*LH2( JA, JB, JE, JF))*0.5D 


comb 

COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
J  A ,  J  C  r  IB 
COMB 
COMB 
COMB 
, JE, COMB 
COMB 


.1  s 


RETURN 
FOURTH+F I FTH+SI XTH 


VAP I  AT  I ONAL  SCHEME 


11 

10 


12 


3999 


11 


CALL  ENERC I SYM, EXPCOE, FH1, FH2, NOBT  ORB  FXH ) 

CALL  EXVAHH(FHHl/FHH2/FHH3/FHH4,EXPCOE  I  YM 

FVN=n  no  '  '  '  1  '  ' 


NOBT, ORB, FXHH) 


EVH=0 .DO 
EVHH=0 . DO 
DO  10  JA  =  1, 3 
L  I  NORB-ORB ( JA) 

I  F ( L I NORB . EQ. 0 ) GOTO  10 
DO  11  JB  =  1,  LI NORB 
EVH=EVH+EXH ( JA, JB ) 

EVHH  =  EVI!H+EXHH  (  JA,  JB  ) 

CONTINUE 

DELTA=EVHH-EVH*  EVH 

DELTAS  =EVHH-2 . D0*EVH*WK+WK*WK 

EPS  I  LO=D ABS (  EVH-WK ) 

EPDS  =  E PS  I LO/DELTAS 
I F (METHOD . EQ. 5) EPDS-EPS I LO/DELTA 
OMEGA1=2.DO*(TAU*EPS I LO-WK) 

OMEGA2  =  1 .  DO 

I F (METHOD. EQ. 6) GOTO  12 

OMEGAl  =  2 .D0*EPDS*( 1 . DO+WK* EPDS ) 

OM EG A2=- EPDS* EPDS 
CONTINUE 
DO  7  JA=l,NOB 
DO  7  08=1, NOB 
DO  7  JC= 1, NORB 
J  E= I NNOR ( I ST+  JC ) 

F(JA,JB,JC) =OMEGA2* (FHH1(JA,JB,JE)+FHH2(JA,JB,JE)+FHH3(JA,JB,JE)+ 
.HH4CJA,  JB,  JE) )+OMEGAl*(FHl( JA, JB, JE)+FH2( JA,  JB,  JE)) 

DO  7  JD  =  1,  NORB 
JF= I NNOR ( IST+JD) 

L(JA,JB,JC,JD)=( OMEGA2* ( LHH2 (JA,JR,JF,JF)+LHH3(JA,JB,Jr,JF)+LHH4( 
.A,  JB,  JE, JF) )+OMEGAl*LH2( JA, JB, JE, JF))*5.D-1 
RETURN 

DEBUG  UN  I T(9 ) 

AT  12 

Dl SPLAY  EVH, EVHH, DELTA, EPSI LO, OMEGA1, OMEGA2 
END 

SUB  ROUT  I  NE  D  I  AGO  (  EX  PCO  E ,  NOBT,  I  SYM,  FH1,  FH2,  FHH1,  F'"!2,  c'  U3,  F  '  H  4 , 1 ;  K ) 
IMPLICIT  REAL* 8 ( A-H, O-Z ) 

INTEGER  NO  BTC  3) 

COMMON/H I NZ/S, F, L, NOB, NORB, CLOSED 

COMMON/ RENOR/  INNOC 10),  I  STAC  3),  I  NNORC 10)  rl 

REAL*8  EXPCOE (  5,  10 )  ,  S (  5,  5,  3) ,  F (  5,  5,  4 ) ,  L(  5,  5,  4,  4) , ;  .aT  (  15  ) ,  i:  I  ■  C  j  . 
.  5  ) ,  SMS  ( 15  )  ,  SMO  (15),T(15),FHl(5,5,4),FH2(5,5,4),F!ll(i>,^,4),h 
.5,4),  FHH3C5, 5, 4), FHH4C5, 5, 4),TEXT(2)/  <H>  /  <  ' 

REAL*  8  SM01C 15) ,  SM02  ( 15  ) ,  El  GM(  25),  E  I  GVALC  s  )  /  1  ( -  )  /  (  J  } 

LOGICAL  CLOSED C 3, 4),N0STA/. FALSE. / 

I F ( NOSTA) GOTO  10 
MOST  A= . TRUE . 

DO  12  JA= 1, 2 
DO  11  JB  =  1, NOB 
DO  11  JC  =  1, JB 
I JN=JC+JB*( JB-l)/2 
SMSC I JN)=S(JB, JC, JA) 

I F ( JA. EQ. 1) CALL  SONS ( NOBT ( JA) , SMS, S.  01 
I F ( JA. EQ. 2 )CALL  SOMS ( NOBTC  JA) , SM  > , o 
CO NT  I NU  E 
I N= INNOC I SYM) 


COMB 
COMB 
COMB 
CO  IB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 

cc 

COMB 
COMB 
COMB 
COMB 
COMB 
F  COMB 
COMB 
COMB 
COMB 
JCOMB 
COMB 
COMB 
COMB 
COMB 
COMB 
COMB 
Dl  \G 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
,  Dl  AG 
,  Dl  AG 


D 

D 

D 

D 

D 


AG 

AG 

AG 

AG 

AG 


Dl  AG 
Dl  AG 
Dl  AG 
D  I  AG 


D 

D 

D 

D 


AG 

AG 

AG 

AG 


Dl  AG 


.  .  . 

. 


. 


. 

. 

. 

. 


c  FILL  UP  THE  MATRIX  TO  BE  DIAGONALIZED 

DO  1  JA=1, NOB 
DO  1  JB  =  1, JA 
I JN-JB+JA* ( JA- 1) / 2 
1  MAT ( I JU)=F( JA, JB,  1) 

I F ( I SYM. EQ. 1) CALL  MULTSC  NOB,MAT, SMOl,  T) 

I F( I SYM. EQ. 2) CALL  MU  LTS ( NOB/ MAT,  SM02,  T) 
CALL  DEI G E ( MAT / E I GM / NOB ,  0 ) 

DO  4  JA=l/NOB 
DO  4  JB  =  l,NOB 
I K= ( JA- 1 ) *NOB+ JB 
4  E I GVEC ( JB, JA) =E I GM ( IK) 

I F  (  I  SYM . EQ. 1) CALL  VMULT ( NOB, F| GVEC, SMOl,  5 ) 
I  F(  I  SYM. FQ. 2) CALL  VMULT (NOB, El GVFC,SM02,  5) 
MAT ( 2 ) -MAT ( 3 ) 

MAT ( 3 ) -MAT ( 6 ) 

MAT ( 4 ) =MAT ( 10 ) 

MAT ( 5 ) =MAT ( 15 ) 


Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 


WR  I  TF  (  12 , 9  00  )  ( iMAT  (  J A ) ,  JA=  1,  NOB  ) 

WRI TEC  12, 901) 

DO  2  JA= 1, NOB 

2  WR  I  TE  (  12 , 9  00  )  (  F I  GVFC  (  JA,  JB  ) ,  JB  =  1,  NOR  ) 

WRI TEC  12,9  01) 

900  FORMAT  (  5D 15  .  5  ) 

901  FORMAT ( ///  ) 

C  ADD  THE  F -MATRICES 
I  MU  LT  =  1 
DO  5  JB  =  1, NOB 
DO  5  JC  =  1,  NOB 

5  R(  JB,  JC)=0.5D0*FH2( JB, JC, I NNOR( I SYM ) ) +FH 1 ( JB , JC , I NNORC I SYM) ) 

13  DO  6  JA  =  1,  NOB 

E I GVAL ( JA) =0 . DO 
DO  7  JB=1, NOB 
RV ( JB ) =0 . DO 
DO  7  JC= 1, NOB 

7  RV(JB)-RV(JB)+EIGVEC(JC,JA)*R(JC,JB) 

DO  8  JB=1, NOB 

8  El GVAL (JA) *EI GVALC JA)+RV( JB)*EIGVEC( JB, JA) 

6  CONTINUE 

WR I TE (  12 , 9  02  ) TEXT ( I  MU  LT ) , ( E I GVAL ( JA) , JA= 1,  NOB  ) 

I  MULT* I MULT+1 
I F ( I  MULT. EQ. 3) GOTO  14 
DAM  I N=DABS (WK-E I GVALC 1) ) 

I  SK=  1 

DO  15  J A=2 , NOB 

DBM  I  N*DABS (WK-E I  GVALC  JA)  ) 

IFCDAMIN. LE . DBM  I N)GOT015 
DAM  I N=DBM I N 
I  S  K  =  J  A 

15  CONTINUE 

JC  = I NNORC I SYM) 

DO  9  JA* 1, NOB 

9  R(  JA,  JB  )  =FHH1(  JA,  JB,  JC  ) +0  .  5D0*F""2  (  JA,  J  ' ,  JC  ) +'  M  (J.-,J  ,J  )/". 

.HH4CJA, JB, JC)*0.25D0 
GOTO  13 

902  FORMAT ( 1H  ,A8,5D20.10) 

904  FORMAT  (II) 

14  DO  3  JA  =  1,  NOB 

3  EXPCOEC JA, IN)=EIGVEC( JA, I SK) 


Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
D  I  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
D0+FDI AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 
Dl  AG 


.  . 


.  . 


c 


1 


900 


13 


14 

12 

10 


11 


C 


1 

2 


4 


RETURN 

DEBUG  UNITC9), SUBTRACE, SUBCHK 

END 

SUBROUTINE  CNVRGC ( EXPCOE, I  TER, NOBT, ORB,  *) 
IMPLICIT  REAL*8 (A-H, O-Z) 

INTEGER  N0BT(3),0RB(3) 

REAL* 8  EXPCOE ( 5/ 10)/OLDEXP(5/10) 

COMMON/ RE NOR/ I NNO( 10), I  STAC  3) , I N NOR ( 10) 
IORB=ORB(l)+ORB(2)+ORB(3) 

IF  (  ITER.EQ.DGOTOIO 

SUM=0 . DO 

DO  1  JA  =  1, I  ORB 


D  I  AG 
Dl  AG 
D  I  AG 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 


IB 


NNO ( JA) ) ) *  *  2 


CONV . SUM= ' , D15 . 5 ) 


GN*  EXPCOE ( JB, 


LIM  DOES  NOT  INCLUDE  D-ORBITALS 
L I M*NOBT ( I NNO( JA)/5+l) 

DO  1  JB-l, L I M 

SUM  =  SUM+  (EXPCOECJB,  I  NNO(  JA) ) -OLDEXPC  J 
SUM=DSQRT ( SUM) 

WRITE(11/900)ITER/SUM 
FORMAT (  1  ITERATION  ',13,'  = • 

IFCSUM.LT. l.D-8)RETURNl 
DO  12  JA  =  1, I  ORB 
LIM  =  NOBT( I NNOC  JA)/5  +  l) 

SMAX=DABS ( EXPCOE ( 1, INNO(JA))) 

I  SK  =  1 

DO  13  J  B  =  2  ,  L  I  M 

I  F(  DABS  (EXPCOE  (J  3,  I  NNOC  JA) ) ) .  LE  .  SMAX  )  GOTO  13 
I S  K  =  JB 

SMAX = DABS (EXPCOECJ3, I NNOC  JA) ) ) 

CONTINUE 

SS I GN=DS IGN(1.DO,EXPCOE( ISK, I NNOC JA)) ) 

DO  14  J  B - 1 , L I M 

EXPCOE (JB, I NNOC J A)) =0.5 DO* (OLDEXPC JB, INNC(JA)  )+SS 
.OC JA) ) ) 

CONTINUE 

DO  11  JA®!, I  ORB 

L I M  =  NOBT ( I NNO ( JA) /5  +  1 ) 

DO  11  J  B  =  1 , L  I  M 

OLDEXPC JB, I NNOC JA) )=EXPCOE(JB, I NNOC JA)) 

RETURN 

END 

SUBROUTINE  A I TKENC EXPCOE, ITER/ NOBT , ORB) 

AN  AITKEN  DELTA-SQUARE  CONVERGENCE  ACCE LERAT I  ON 
IMPLICIT  REAL* 3 (A-H, O-Z ) 

REAL* 3  EXPCOE (5,10), ARRAY  Cl  0,5, 3) 

INTEGER  NOBT ( 3 ) , ORB ( 3 ) , IREPVC10) 

COMMON/ RE NOR/ I NNO (10), I  STAC  3), I NNOR(lu) 

I  F (  ITER.NE.DGOT02 
NORBT=ORB( l)+ORB( 2)+ORB(3) 

DO  1  JA=1, 10 
I REPVC  JA) =0 
DO  3  JA=1, NORBT 
I  X  P= I NNOC  JA) 

I SYP=1+I XP/5+1 XP/9-1 XP/10 
NOB=NOBT ( ISYP) 

I REPVC I XP) =1 REPVC I XP)+1 

DO  4  J 3=1, NOB  ,  lvn, 

ARRAY ( JA, JB, I REPVC I XP) ) “EXPCOE (Jo, I  a!  ) 

I F ( I REPVC IXP).NE.3)G0T03 

I  F(  DABS  ( ARRAY ( JA,  JB,3)-ARRAY(  JA,  J3,2) )  .  -E.  ■'  ^  (  '  (  JA,J->, 


CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
NNCNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
A I  TK 
A  I  TK 
A I  TK 
A  I  TK 
A I  TK 
A  I  TK 
A I  TK 
AITK 
A I  TK 
AITK 
AITK 
AITK 
AITK 
AITK 
AITK 
AITK 
AITK 
AITK 
AITK 
2) -ARRAAI TK 


.  . 

. 

' 

. 

■ 

. 

. 

.  '  .  i: 


6 

7 

8 

3 

C 

1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

2 

20 

15 

23 


.  Y(  JA,  JB,  1)))G0T07  njy 

EXPCOEC  JB  /  I  X  P)  =ARRAY  (  JA/  JR/  1)-  ( (  ARP  AY  (  JA,  JB/  2)-A™AY(  JA,  JB,  1)  )**2) A  I TK 
.  /(  ARRAYC JA,  JB,  3)-2.  D0*ARR*Y(  JA,  JB,  2)  +  ARn''Y( JA,  JR, 1))  A  ITK 

I  RE PV(  I  X P ) =  0  A|TK 

GOTO  3  AITK 

DO  8  JOl,  NOB  A  ITK 

ARRAYC  JA, JC, 1) =ARRAY( JA,  JC,  2)  AITK 

ARRAYC  JA,  JC, 2)=ARRAY( JA, JC, 3)  AITK 

I  REP VC  I XP) =2  AITK 

CONTINUE  AITK 

RETURN  AITK 

END  AITK 

SUBROUT  I  ME  PRPRTS ( EXPCOF, ORB, NORT,  ITER, PROSUM, PRO PM)  PROP 

THIS  ROUTINE  COMPUTES  THE  EXPECTATION  VALUES  <  1/R>, <R>, <R**2>  PROP 

IMPLICIT  REAL*8C  A-H, O-Z)  PROP 

COMMON /PRO  PER  /SRM1C  5,  5,  3),SRP1(  5,  5,  3),SRP2C  5,  5,  3)  PROP 

COMMON /ONE /FAC  1C  50 ) ,  FHH  1C  5,5,  4),FH1(  5,  5,  4),  I  NT  1C  50),  LI  Ml  PROP 

COMMO  N  /  RENO  R  /  I  NNO  (  10),  I  STAC  3),  INNORC  10)  PROP 

R  FAL*  8  PROSUMC 3), PROPMC 3, 4, 3), FACVC 10 ) , R 1C  5 ) , R  2  (  5), R3C  5),  FXPCOFC  5, PROP 
.10)  PROP 

INTEGER  ORBC  3), NO BTC  3)  PROP 

IF  (  I  TER . NE . 1 ) GOTO  20  PROP 

NORBT  =ORB( 1 ) +ORBC  2 ) +ORBC 3)  PROP 

DO  1  JA  =  1,  10  PROP 

FACVC  JA)=0  PROP 

no  2  JA= 1, L I M 1  PROP 

IORB  =  l NT  1C JA)  PR0P 

GOTOC3,  4,  5,5,  5,  6,7,  7,7,8,8,8,8,8,9,10,10,10,11, 11, 11, 11, 11, 12,13, 1PROP 

.3, 13),  I  ORB 


I  A  =  1 
GOT02 
I  A=2 
GOT02 
I  A  =  5 
GOTO  2 
I  A  =  3 
GOT02 
I  A=6 
GOTO  2 
I  A  =  9 
GOTO  2 
I  A=4 
GOT02 
I  A=  7 
GOTO  2 
I  A  =  10 
GOTO  2 
I  A  =  1 1 
GOT02 

I  A.  =  8  , 

FACVC  I  A) =F  ACVC  I  A) +FAC1C  JA) 

DO  15  JA  =  1/  3 
PROSUMC  JA) =0 
DO  23  JB  =  1,  3 
DO  23  JC  =  1,  4 
DO  23  JD  =  1,3 
PROPMC  JB, JC, JO) =0 .no 
DO  21  JA=1/  NORBT 
I XP  =  I MNOC  JA) 

ISYP=1+I XP/5+1 XP/9-IXP/10 


PROP 

PROP 

PROP 

PPOP 

PROP 

poriP 

ppn  P 

POOP 

PPOP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PRO  P 

PROP 

PROP 

PROP 

PROP 

PROP 

PROD 
PROP 
PROP 
PROP 
PROP 
PROP 
PRO  P 
PROP 
PROP 
PPOP 


x'1'. ,  • 

5 

V 

X  (  <  )  X  XXX 

\ 

... 

.  . 

.  . 


-  *  I 


' c  ■’ 


22 


24 

C 


ADD 


26 

21 


C 


I  ORB  =  I XP- ( I SYP-1 ) *4 
NOB=NOBT ( I  GYP) 

DO  22  JB*1, NOB 
R1(JB)=0.D0 
R2 ( JB ) =0 . DO 
R3(JB)=0.D0 
DO  22  JC=l,NOB 

R 1  (  J '  ) =R1( JB)+SRM1( JB, JC/ I SYP ) *  EXPCOE ( JC,  I  XP) 

R2(JB)=R 2(JB)+SRP1(JB/JC/ ISYP)*EXPCOE(JC,  IXP) 
R3(JB)-R3(JB)+SRP2(JB,JC, I SYP)* EXPCOE ( JC,  IXP) 

DO  24  JB  =  l,NOB 

PROP’  .C  I  SYP,  I  ORB,  1 )  =  PR 0 PM (  I  SYP,  I  ORB , 1 )  +  EX PCOE ( Jn ,  I  XP )  *R1  (  JB  ) 

PRO  PI  U  I  SYP,  I  ORB,  2)  =PROPM(  I  SYP,  I  ORB,  2  )  +  EXPCOE  (  JB  ,  I  X  P )  *  R2  (  J  ) 

PROPMC I SYP,  I  ORB, 3 ) =PROPM( I SYP, I  ORB, 3 )  +  EXPCO EC JB ,  I XP )*R3 ( JB ) 

UP  THE  PROPERTIES 
FACT=F AC V ( IXP) 

DO  26  JC  =  1,  3 

PROSUM ( JC )= PROSUM ( JC )+ PRO PM ( ISYP, I  ORB,  JC  )  *FACT 
CONTINUE 
RETURN 
END 

SUBROUTINE  H I NZE ( EXPCOE, I SYM, ORB, COMPL) 

IMPLICIT  REAL* 8  (A-H,0-Z) 

COMMON/HINZ/S, F, L, NOB, NORB, CLOSED 
COMMON/ I  NTH  I N/ GSM , CSV 

COMMON/ RENOR/ I NNO( 10),  I  STAC  3),  I NNORC 10) 

REAL* 8  EPS  I  (4, 4),  GSM (5, 5, 4, 4), CSV (20), DC  5, 5, 4, 4) , R1 ( 5, 5) , R2 ( 5, 5) , RH 
.3(5,5),R4(5,5),RV1(5),RV2(5),S(5,5,3),F(5,5,4),L(5, 5,  4,  4 ) ,  cXPCOc  (  5H 
.,  10),THRH/l.D-5/ 

CLOSED  CONTAINS  INFO  IF  THE  ORB  I TAL ( I SYM, NORB )  BELONG  TO  CLOSED 


DPOP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 


H 

SHE  LH 


LOGICAL  C  LOS  ED ( 3, 4 ) 
INTEGER  ORB ( 3 ) 

C  EMPTY  ALL  ARRAYS 
DO  1  JC=1, 4 
DO  1  JD  =  1,  4 
EPSI CJC, JD)=0.D0 
DO  1  JA=  1,  5 
DO  1  JB  =  1, 5 

1  GSMC JA, JB, JC, JD)=0.D0 
1  ST  =  I  STAC  I SYM) 

5323  CONTINUE 
C 


41 


42 


43 


45 

40 


COMPUTE  EPSI ( JA, J3) 

DO  40  JA=l,NORB 

DO  45  JB  =  JA,  NORB  A  iir_ 

IF(CLOSED(  ISYM, JA)« AND. CLOSED ( ISYM,JB).  AND .  JA. NE.  JB) GOTO 4 5 

DO  41  J C  =  1 , NOB 
DO  41  JD  =  1, NOB 

R1CJC, JD)=F( JC, JD, JA)+F( JC, JD, JB) 

DO  42  JC  =  1,  NOB 
RV1 ( JC) =0 . DO 

DO  42  JD  =  1,  NOB  IA.  ,  n1,  ,  ir  * 

RV1(JC)=RV1(JC)+EXPC0E(JD,  I  NNOC  I  :.T  + JA)  )  *  -  (  J  /  J  ' ) 

EPSI ( JA, JB)=0.D0 

"psuja!js1)=rvi(jc)*expcoe(jc/ihno(ist+jb))+epsi(ja/jb) 
EPSI  C JB,  JA)=5.D-1*EPSI ( JA, JB) 

EPSI C  JA, JB ) =EPS I C JB, JA) 

CONTINUE 
CONTINUE 
DO  44  JA= 1, NORB 


H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 

H 


NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 


M7 


NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 

NZ 


. 

. 


44 

C 


6 


C 


9 


10 


16 


DO  44  JB=l,NORB 
DO  44  JC=l,NOB 
DO  44  J  D  =  1 , NOB 

loopJ5'setsAup3theXg-suEperAato?x  ' ST+JA)  J ' *EXPC0E(' JD' n,N0(  1  ST+JB) > 

DO  5  JA=l,NORB 
DO  5  JB=l,NORB 

C  THE  MATRIX  EPS  I ( I / J ) *S-2* L ( I , J )  IS  ADDED 
DO  6  JC=1, NOB 
DO  6  00  =  1,1103 

9S.t!(J.^^'^<dB)=GSM(JC'JD'JA'JB>  +  EPSICJA/J3)*S(JC/JD/  I  SYM)  -  2.00* 
•  C  vJC  /  u  i  ^  /  J  A  /  J  B ) 

I F( JA.NE. JB)G0T013 

THE  PART  WHICH  CONTRIBUTES  ONLY  TO  THE  DIAGONAL  ELEMENTS  IS  DONE 
DO  o  J  C  =  1 ,  N  0  R  B 

I  F  (  CLOS  ED ( I SYM, JA) .AND.  C LOS  ED ( I SYM, JC) . AND . JA . NE . JC ) GOTO  3 
DO  9  JD=l,NOB 
DO  9  JE  =  1, NOB 

R1(JD,JE)=F(JD,JE,JA)+F(JD,JE,JC) 

DO  10  JD=l,NOB 
DO  10  JE=1, NOB 
R2(JD/JE)=0.D0 
R3(JD/JE)=0.D0 
DO  10  J  F  =  1 , NOB 

R2( JD, JE)=R2( JD, JE)+D( JD, JF, JC, JC)*R1( JF, JE) 
R3(JD,JE)=R3(JD,JE)+R1( JD, JF)*D(JF, JE,JC,  JC) 

DO  11  JD=1, NOB 
DO  11  J  E  =  l, NOB 
R1(JD,JE)=0.D0 
R4( JD, JE)=0.D0 
DO  11  J  F  =  l, NOB 

Rl( JD, JE)=R1( JD, JE)+S(JD, JF, ISYM)*R2( JF,  JE) 

R4( JD, JE)=R4( JD, JE)+R3( JD, JF)*S( JF,JE,  ISYM) 

DO  12  J D  =  1 , N 0 B 
DO  12  J E-l, NOB 

GSM(  JD,  JE, JA, JB)=GSM(JD, JE, JA, JB)+0.5D0*(R1( JD, JE)+R4( JD,  JE)) 
CONTINUE 
DO  121  J  C  =  1 , N  0  B 
DO  121  JD=1, NOB 

GSM(  JC, JD,JA, JB)=GSM( JC, JD, JA, JB)-F( JC, JD,JA) 

THIS  PART  IS  ADDED  IF  ORB  I  TALC  JA)  OR  (JB)  DO  NOT  BELONG  TO 
A  CLOSED  SHELL 

I  F ( CLOSED ( I SYM, JA) . AND. CLOSEDC ISYM, JB) . AND . J A . NE . JB )  GOTO  13 
DO  14  JC=1 , NOB 
DO  14  JD=1, NOB 

R1(JC,JD)=F(JC,JD,JA)+F(JC,JD,J3) 

DO  15  J C  =  1 , NOB 
DO  15  JD=l,NOB 
R2( JC, JD)=0.D0 
R3( JC, JD) =0.D0 
DO  15  J  E  =  1 , NOB 

R2( JC, JD)=R2( JC, JD)+D( JC, JE, JA, JB)*R1( JE,  JD) 

R3( JC, JD)=R3( JC, JD)+R1( JC, JE)*D( JE, JD, JA, JB) 

DO  16  J C  =  1 , N 0 B 
DO  16  JD=1, NOB 
R1(JC, JD)=0.D0 
R4 ( JC, JD) =0 . DO 

DO  16  JE  =  l,NOB  v  ir 

Rl( JC, JD)=R1( JC, JD)+S( JC, JE, I SYM) *R2 ( JE, JD) 

R4(  JC,  JD)  =R4(  JC,  JD)+R3(  JC,  JE)*S(  JE,  JD,  I  o Y.-. ) 


11 


12 
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C 

C 
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DO  17  JC=1 / NOB 
DO  17  JD=l,NOB 

17  GSM  (  JC  ,  JO / JA, JB )=GSM( JC, JD, JA, JB)+0. 5D0*(R1(JC,  JD)+R4(JC- JD) ) 
C  LOOP  19  ADDS  THE  L -MATRICES 

18  DO  19  JC  =  l/NORB 

I  F  (  CLOSE  (  1  I,  JA)  .AND.  CLOSED  ( I SYM, JC) .  AND . JA.NE. JC)G  3T023 
DO  20  JD=l,NOB 

DO  20  JE  =  1,N0B 
Rl( JD, JE) =0 . DO 
R2(JD,JE)=0.D0 
DO  20  JF=1/ NOB 

R1(JD,JE)=R1(JD,JE)+D(JD,JF,JC,JC)*L(JF,JE,JA,JB) 

20  R2(JD,JE)=R2(JD,JE)+D(JD,JF,JC,JA)*L(JF,JE,JC,JB) 

DO  21  JD=l,NOB 

DO  21  JE=l,NOB 

21  R3(JD/JE)=R1(JD/JE)+R2(JD/JE) 

DO  22  JD=l/NOB 

DO  22  JE= 1, NOB 
DO  22  JF=1/ NOB 

22  GSM  (JD/JE/JA/JB ) =GSM( JD/JE/JA/JB)+S(JD/JF/ I SYM ) *R3 ( JF  /  JE ) 

23  I  F  (  CLOSED  (  I  SYM,  JB)  .AND.  CLOSED  ( I  SYM,  JC  ) .  AND  •  JB • NE . JC )  GOTO  19 
DO  24  JD=l,NOB 

DO  24  JE  =  1, NOB 
R1(JD,JE)=0.D0 
R2( JD, JE) =  0.D0 
DO  24  J F  =  1, NOB 

Rl(  JD,  JE)=R1( JD, JE)  +  L(JD, JF, JA, JB)*D( JF, JE, JC, JC) 

24  R2CJD, JE ) =R2 ( JD, JE)+L( JD, JF, JA, JC)*D( JF, JE, JB,  JC) 

DO  25  JD  =  1, NOB 

DO  25  J  E  =  1, NOB 

25  R3( JD, JE)=R1(JD, JE)+R2(JD, JE) 

DO  26  JD= 1, NOB 

DO  26  JE= 1, NOB 
DO  26  JF  =  1, NOB 

26  GSM(  JD,  JE, JA, JS)=GSM( JD, JE, JA, JB)+R3( JD, JF )*S(JF, JE,  I  YU) 

19  CONTINUE 

5  CONTINUE 

C  THE  G-SUPERVECTOR  IS  COMPUTED 
DO  27  J A= 1, NORB 
DO  28  JB  =  1, NOB 

28  RV1(JB)=0.D0 

DO  29  JB  =  1, NORB 

29  RV1(  JC)  =RV1(  JO+EPSI  (  JA,  JB  )  *  EX  PCOE  (  JC ,  I  NNO(  I  S  ;  +Jr  ) ) 
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31 

32 
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DO  30  JB  =  1, NOB 
RV2 ( JB ) =0 . DO 

DO  30  JC  =  1,  NOB  v 

RV2( JB)=RV2( JB)+S( JB, JC, I SYM ) * RV1 ( JC ) 

DO  31  JB  =  1, NOB 
RV1 ( JB ) =0 . DO 

DO  31  JC  =  l,NOB  .  i  Mimf  ict*  iau 

RV1(JB)=RV1(JB)+F(JB,JC,JA>*EXPC0E(JC,INN0CIST*JA)> 

DO  32  JB  =  1, NOB 

GSV( ( JA-1)*5+JB)=RV1(JB)“V  2 ( J  ) 


CONTINUE 

SUBROUTINE  GAUSS  AND  COMPANION 
CALL  SOLVERCNOB, NORP, I SYM) 
LOOP  33  MAKES  A  LEAST  SQUARE 


COMPARISON 


DO  33  JA= 1, NORB 


I  T 0  =  ( JA-1 ) *  5 
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DO  34  JB  =  1, NOB 

34  forT?^UEB/  *  !  '^  *  r'  +JA)  ^  =  EXPC°C  JB,  I  NNO  (  IST+JA)  )+GSV(  I  TO  +  JB) 

DO  39  JA=l,NORB 
DO  39  JB  =  1/ NORB 
DO  400  JC  =  1, NOB 
GS V( JC ) =0 . DO 
DO  400  JD=l/NOB 

400  GSV(JC)=GSV(JC)+EXPCOE(JD, I NNO( IST  +  JA) )*S( JD, JC,  I  GYM) 

SUM=0 . DO 
DO  410  JC=l,NOB 

410  SUM=SUM+GSV (JC)*EXPCOE(JC, INNO( IST+JB) ) 

IF(  JA.  EQ.  J3)COMPL=COMPL+DABS  (SUfl-1.  DO) 

39  WR I TE( 10,900) JA, JB, SUM 
900  FORMATC  ’,214/025.16) 

RETURN 


END 

SUBROUTINE  SO LV ER ( NOB, NORB, ISYM) 
IMPLICIT  REAL*8(A-H,0-Z) 

COMMON / I  NTH  I N/GSM ( 5, 5 , 4, 4 ) , GS V ( 2 0 ) 
REAL*  8  MAT ( 400 ) , VEC( 20 ) 

I D I M=NOB*NORB 


JL I = ( I SYM-1 ) *4 

900  FORMATC///) 

901  FORMATC  ’,  5020. 10) 

902  FORMAT  Cl’) 

DO  1  JA= I, NORB 
I  CO  L= ( JA- 1 ) *  NOB 
DO  1  JB  =  1, NOB 
I COLB=l COL+JB 
I  TO  = ( I  CO  LB  - 1 ) *  I D I M 
DO  1  JC  =  I, NORB 
l ROW= ( JC-1) *NOB 
DO  1  JD=l/NOB 
I ROWD= I ROW+ JD 

1  MAT  (  I  TO+  I  ROWD)=GSM(  JD,  JB,  JC,  JA) 


DO  2  JA= I, NORB 
I TO= ( JA-1 ) *NOB 
DO  2  JB  =  1/ NOB 

2  VECC I TO+JB)=GSV( (JA-1)*5+JB) 
CALL  GAUSS (MAT, VEC, I D I M) 

DO  3  JA  =  1, NORB 
I TO  =  ( JA-1 ) *  5 
I TA=( JA-1) *NOB 
DO  3  JB *1/ NOB 

3  GSVC I TO+JB )=VEC( I TA+JB) 
RETURN 


END 

SUB  ROUT  I  ME  GAUSS  (MAT/ VF.C/  I  DIM) 

IMPLICIT  REAL* 8  (A-H/O-Z)  rnM1KUJC. 

GAUSS  ELIMINATION  WITH  Pi VOTI NG  OF  ROWS  AND  LJLJ,  -o 
REAL* 8  MAT ( I  D  I M  , I D I M) / VEC( I O I , » ) / oC  L . (20) 

INTEGER  EXVEC20) 

IF(  IDIM.EQ.DGOTO20 
DO  1  JA-1, I  DIM 
EXVE ( JA) =JA 
I  DM  1=1  DIM- 1 


DO  2  J A= I, I  DM1 

BMAX=DABS(MAT( JA, JA) ) 


I  ROW  =  JA 
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I  CO  L  =  JA 

C  LOOK  FOR  LARGEST  REMAINING  ELEMENT 
DO  3  JB  =  J A, ID IM 
DO  3  JC=JA/ IDIM 

I F ( DAOS (MAT C  J B ^ JC)  )  . LE . BM AX ) GOTO 3 
BMAX=DABS (MAT ( JB , JC  ) ) 

I ROW= JB 
I  CO L  =  JC 

3  CONTINUE 

C  EXCHANGE  ROWSCIF  NECESSARY) 

I  F  (  I  ROW .  EQ. .  JA )  GOTO  5 
DO  4  JB  = JA, IDIM 
EX=MAT ( JA/ JB ) 

MAT ( JA, JB ) =MAT ( I  ROW, JB ) 

4  MAT ( I  ROW, J3 ) =EX 
EX=VEC( JA) 

VEC ( JA) =VEC ( I  ROW) 

VEC ( I  ROW ) =E X 

C  EXCHANGE  COLUMNS  AND  STORE  WHICH  HAVE  BEEN  CHANGED 

5  IF(  JA.EQ.  IC0DG0T07 
I  EX-EXVE ( JA) 

EXVEC  JA) =EXVE( ICOL) 

EX VE (  I  CO L)  =  I  EX 
DO  6  JB=1/ IDIM 
EX=MAT( JB, JA) 

MATCJB, JA)=MAT( JB, ICOL) 

6  MAT ( JB,  I  CO L ) =EX 

C  ELIMINATE  JA-TH  COLUMN 

7  I S= JA+ 1 

DO  3  JB=I5, IDIM 
FAC=-MAT( JB, JA)/MAT( JA,  JA) 

DO  9  J  C  =  J  A ,  IDIM 

9  MATC  JB,  JC)=MAT(  JA,  JC  )  *  FAC+MAT  (  JB ,  JC  ) 

8  VEC ( JB ) =V  EC ( JA) *FAC+VEC ( J3 ) 

2  CONTINUE 

C  BACKSUBSTITUTE 

SOLV ( I D I M ) -VEC ( I  DIM) /MAT ( IDIM, IDIM) 

L  I  M  =  I  D  I  M  - 1 
DO  10  J A= 1, LIM 
SUM=V  EC ( I DIM-JA) 

DO  11  JB  =  1, JA 

11  SUM  =  SUM-SO  LV  (  I  D  I  M-JB+1)*MAT(  IDIM-JA,  IDIM-JB+1) 

10  SO  LV ( I D I M- JA) =SUM/MAT ( I DIM-JA, IDIM-JA) 

DO  12  JA= 1, IDIM 

12  VECCEXVEC JA) )=SOLV( JA) 

C  CALCULATE  THE  NORMALIZED  DETERMINANT  AND  CHECK  FOR 

AL  PH A= 1 . DO 
DO  13  JA=1, IDIM 
SOLV ( JA) =0 . DO 
DO  14  JB= JA, IDIM 

14  SOLV( JA) =50LV( JA)+MAT( JA, JB)**2 

13  ALPHA=ALPHA*DSQRT ( SO  LV ( JA) ) 

SUM® 1. DO 

DO  15  JA= 1, IDIM 

15  SUM=SUM*MAT ( JA, JA) 

DET  =SUM/ALPHA 

I F ( DABS (DET ) . GT. 1. D-5 ) RETURN 
WR I TE ( 6, 900 )DET 
RETURN 

VEC(1)=VEC( 1) /MAT ( 1, 1) 
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RETURN 

'?iPDlofl/131( ))“0X' '  ™E  VALUE  OP  THE  NOR,'!.  DETERMINANT  IS 
END 

tlip^cTr  iREAL-3^-n;6-z)COE'Fl,1'FH2'NOBT'ORB'ErJERGY) 

INTEGER  NOBT(3),ORB(3) 

COMMON/ ENRG/ VI Rl AL ( 3, 4,2) 

COMMON/ RENOR/ I NNO( 10),ISTA(3),I NNOR(  10 ) 

PPPYf’  ^ppnxr' i°™BJ!^,5,4)'1:H2C5'5/4>'R(5/5)'ENERG<1,)'RV(5,'ENENER 
NORB-ORB ( I SYM ) 

NOB-NOBT ( I SYM) 

I  ST  = I  STAC  I SYM) 

DO  1  JA=1, NORB 
ENERG( JA ) =0 . DO 
VPOT ( JA ) =0 . DO 
VK I N( JA) =0 . DO 
DO  2  JB  =  1, NOB 
DO  2  JC  =  1, NOB 

R(  JB/ JC) =0. 5D0*FH2 ( JB, JC/ I NNOR ( I 5T  + JA) ) +FH1 ( JB, JC,  I NNORC  I  ST  +  JA)  ) 

FORMAT ( 1 0  ENERGY3  * ,  5020. 10/) 


ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
EfJFR 
ENER 
ENER 
ENER 

MULTIPLY  THE  RESULTANT  MATRIX  BY  TH  E-VECTOR  ENER 

COMPUTE  ALSO  THE  TERMS  CONTRIBUTING  TO  THE  POTENTIAL  AND  KINETIC  ENEENEP 
DO  3  JB=l,NOB  ENER 

RV(JB)=0.DO  ENER 

RPOT ( JB ) =0 . DO  ENER 

RK I N ( JB ) =0 . DO  ENER 

DO  3  JC=1, NOB  ENER 

RKIN(JB)=RKIN(JB)  +  EXPCOE(JC/ I NNO( IST+JA) )*FH1( JC, JB/ I NNORC  I  ST+JA) )ENER 
RPOT(JB)=RPOT(JB)+EXPCOE(JC/ I NNOC I ST+JA))*FH2(JC,JB, I NNORC IST+JA) ) ENER 

ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
ENER 
EXHH 
EXHH 
EXHH 


RVC  JB ) =RV( JB )  +  EXPCOEC  JC, I NNOC I ST  +  JA) ) * R ( JC, J5 ) 

DO  5  JB  =  1, NOB 

VPOTC JA) =VPOT( JA) +RPOTC  J3 )  *EXPCOE(  JB,  I NNOC I ST+JA) ) 
VKIN(JA)=VKIN(JA)+RKINCJB)*EXPCOECJB/ I NNOC IST+JA) ) 

ENERG  C  JA) =EN  ERG  C  JA) +RV  C  JB ) *EX  PCOF ( J  B ,  I NNOC I ST+JA) ) 

CONTINUE 
EN  =  0 . DO 

DO  4  JA=l/NORB 

VI Rl ALC I SYM, JA, 1 ) =VPOT ( JA ) *  0 . 5D0 
V  I R I AL  C I SYM, JA, 2 ) =VK I N C  JA) 

ENERGY  C I SYM, JA)  =  ENERG ( JA) 

EN=EN  + ENERG  C  JA) 

WRI  TEC  8, 9  ODEN,  (  ENERG  (  JA) ,  JA  =  1,  NORB) 

RETURN 
END 

SUBROUTI  NE  EXVAHHCFHHl,  FHH2,  FHH3,  FHH  4,  rXPCOE,  I  SYr,  NOBT ,  On  B ,  E  XH’  I ) 
IMPLICIT  R EAL* 8 ( A-H, O-Z ) 

COMMON/ RENOR/  I  NNOC  10),  ISTAC3),  I  NNORC  10 )  .  CVD„_,_  1_CVIUJ 

REAL*8  FHH1C5,  5,  4),  FHH2  C5,  5,  4),  FHH3C5,  5,  4),  F  ■  ■  •  4  (  5,  5,  4),  C;  (5,1 
.  ),R(5,5),RV(5),EHH(4),EXHH(3,4) 

INTEGER  NOBT (3), ORB (3) 

I ST=I STAC  I SYM) 

NORB=ORB ( I SYM) 

NOB=NOBT  C I SYM) 

DO  1  JA= 1, NORB 
JD= I NNORC IST+JA) 

DO  2  JB  =  1,  NOB 

R(JB/JC)=FHHl(JB/JC/JD)  +  0.5D0*FHH2(JB/JC/JD)*FHH3(dB,JC,JD)/3.  i0+  EXHH 
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. 0 . 25DQ*FUH4 ( JB, JC, JO ) 

EHH ( JA) =0 . DO 
DO  4  JB= 1, NOB 
RV(JB)=O.DO 
DO  4  00  =  1,1408 

RV(JB)=RV(JB) +EXPCOEC  JC, I NN0( I ST+ JA) ) *R(  JC,  JB) 
DO  1  JB=l,NOB 

EMU  (  JA) =EHH ( JA) +RV( JB ) *EXPCOE( JB, I NNO( I ST+JA) ) 
EXHM ( I SYM, JA)=EHH( JA) 

EN 2  =0 . D  0 

DO  5  JA= 1, NQRB 

EN2=EN2+EHH( JA) 

WRI  TEC  8,9  00) EN2, C  EHH C JA) , JA=1, NORB ) 

FORMAT ( 1 0  EVHH  =  ’,5020.10/) 

RETURN 
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901 
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900 


EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 
EXHH 

SUBROUTINE  OPTI MCORB, ENERGY, EXHH, WK, METHOD, I  DPT  1 ,LIN4,TAU)  OPfi 

IMPLICIT  REALMS ( A-H, O-Z)  OPTI 

COMMON/ALL/EXPCOE  (  5, 10 ) ,ORBEXP(  15)  ,H(  5, 5,3 )  , CHARGE,  )N,NOBT(3), ISYMOPTI 
. , FDUB  OPTI 

REAL* 3  ENERGY(3,4),EXHH(3,4),XVEC(19),YVEC(10),MAT(19,10),VEC(  10)  OPTI 

OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPT! 
OPTI 
OPT! 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPT! 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 
OPTI 


I  NT  EGER  ON  (  15  ) ,  Fr'UB  ,  ORB  (  3  ) ,  MO  EX'/(  15) 

LOOP  1  RUNS  OVER  THE  SYMMETRIES 

READ (  5, 9  01) NOE, ( NOEXVC  JA) , JA=1, NOE ) , ICHNGE 
FORMAT (2014) 

DO  1  JA=1, NOE 
NOEX=NOEXV( JA) 

LOOP  2  RUNS  OVER  THE  BASIS  FUNCTIONS 
I COND=0 

CALL  SCFCYCCORB, ENERGY, EXHH, UK, LIM4, METHOD, TAU) 

XVAL=ORBEXP( NO  EX) 

DO  3  JC=1,10 

LOOPS  4ck 5  ADD  UP  THE  ORBITAL  ENERGIES 
EVH-O.DO 
EVHH  =  0 . D  0 
DO  4  JD  =  1, 3 
NEWNOR=ORB ( JD ) 

I FCNEWNOR. EQ.Q)G0TO4 
DO  5  JE=1, NEWNOR 
EVH =EVH+ ENERGY ( JD, JE) 

EVHH=EVHH+EXHH ( JD, JE) 

CONTINUE 

GO  TOC  7, 8,9, 10, 11) , METHOD 

YVAL=EVH 

GOTO  12 

YVAL=EVHH-EVH*EVH 
GOTO  12 

YVAL  =  EVHH-2 .  D0*EVH*WK+  /K*V7K 
POTO 12 

YVAL  =  (  (  EVH-WK)  **2)/ (  EVHH-2  . r  9*EV  I*  +  * 

GOTO  12 

YVAL  =  (  ( EVH-VJK)  **2)/CEVHH-EVH*EVH) 

1 F ( I COND . EQ. 1)G0T06  trmin  ,rm,n n 

CALL  CHANGE (XVAL,YVAL,XVEC,YV EC,  JC,  ' 

ORBEXPC  NOEX) -XVAL 

CALL  SCFCYCCOR  , ENERGY, EXHH, WK, LI  4,  El  ,  > 

..  °>E  TEN  poi  NTS  IN  on,'  ARE  NOT  INCLUD.  NG  A  Ml  Nl  MUM- ) 

STOP 


YV^CC  JO  =YVAL 

CALL  PO  LYNO (  XVEC, Y  VFC, MAT, VFC  jr) 

ORB  FXP( NOEX) =XVFC( 1) 

C  0 L’T  !  NU  F 
CO  NT  I  NUF 
RFTURN 

DFBUG  UNIT(9),SUBCHK, SUB TRACE  IN  IT( 0P°EXP  YVM  X V/s f  ) 

ATOP 

DISPLAY  XVEC,YVEC 
END 

SUBROUTINE  SCFCYCC  ORB, FNcRrY/ EXHH, V'K,  L  I  M4  MrTMon  jam) 

IMPLI Cl T  REAL  *  8  (A-H,0-Z) 

COMMON/ ALL  /EXPCOF  (  5,  10),OPBEXP(  15), H(  5,  5 ,  3),  CH  A  RCE, QN,  NC^TC  3),  I  SYMSCFC 
. ,  FOUR  S OF C 

INTEGER  I  NT NO  2 , ON ( 15),FDUB, INFOC  4)^OPP(  3)  SCFC 

COMMON /H  I  NZ/S,  F/  L/  NOB,  NOPB,CLOSFD  SCFC 

COMMON/ONE /F AC  1(  50 ) ,  FHH  1(5,  5,  4 ) ,  FI’  1(  5, 5 , 4 ) ,  INTI  (  50  ) ,  L  I  r  1  SCFC 

COMMON/TWO/FH  2 ( 5, 5, 4), FHH2 ( 5, 5, 4), FAC2 ( 100 ), L"2( 5, 5, 4, 4 ), L H 1 ' 2 ( 5,  5,  SCFC 
.4,4),  INT2C4,  100),  INTN02  (  100  ),  MIJLL2C 10  0  ),  L  I  M2,  IMTLI  2  SCFC 

COMMON /THRFE/F  AC  3(  20 0  ) ,  FI  JH  3(  5,  5,  4  ) ,  LHH 3  (  5,  5,  4,  4  ) ,  T 'T 3  (  6 ,  20  0 ) ,  I  ’  TNOSCFC 
.  3(  3,  100),  LI  M3,  INTLI  3,  NULL  3  SCFC 

REAL* 8  F(  5,  5,  4),  I.H2,  LHH2,S (  5,  5, 3),HH( 5,  5,  3),  L(  5,  5,  4,  4),OFNER(3,  4),  SCFC 
.  LHH3,LHH4(5,5,4,4),FHH3,FMM4(5,5,4),EXHH(3,  4),ENEPCY(3,4)  SCFC 

LOGICAL  NULL2  SCFC 


DPT  I 
OPT  I 
OPT  I 

nnj  , 

OPT  I 
OPT  I 
OPT  I 
OPTI 
OPT  I 
OPT  I 
SCFC 
SCFC 


WRITEC 11, 801)L I  M3, L I M4, METHOD 
FORMAT ( 1  L  3, L4 , MFTHOD =  ',314) 
CALL  ONF I  NT ( HH, S ) 

INTLI  2=0 

I NTL I  3  =  0 

DO  10  J  A  =  1,  3 

I F ( ORB ( JA ) . FQ . 0)GOTO10 

CALL  RpNO PM ( NOBT ( JA) , OPB( JA) , JA 

CONTI NUF 

DO  20  ITFR=1, 10 

HMD  I  3=0 

L IMD I  4  =  0 

COMPL  =  0 . DO 

WRITEC 8,900) I TFR 

DO  21  I  SYM  =  1,  3 

NO  RB  =OR8 (  I SYM) 

NOB=NOBT( I SYM) 

I F ( NO  P8 . EQ . 0 )G0T02 1 
DO  30  JA= 1/ NOB 
DO  30  JS  =  1, NOB 
DO  30  JC  =  1,  4 
FH1C JA, J3, JC)=0.D0 
FHH1C  JA,  JB,  JC)=O.DO 
FM2C  JA,  JB,  JC)  =0  .DO 
FHH2C  JA, JB, JC) =0 .DO 
FHH3C  JA, JB, JC) =0 .DO 
FHH4C JA, JB, JC)=0.D0 


SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

yppoe  s)  SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 


DO  30  JD  =  1, 4 
LH2  (  JA,  JB,  JC,  JD)  =0  .  DO 
LHH2C JA, JR, JC, JD)=0.O9 
LHH  3(  JA,  JB,  JC,  JD )  =0 . 0 0 
LHH4(  JA,  JB,  JC,  JD)  =0  .09 

CALL  ONEFLC  NOB,  I  SYM,H,'  U) 


CALL  TIMEC 1, 1) 
CALL  TWOELE 
I  F ( METHOD . FO. l.np 


. !  IM3 . FO .  0)001031 


SCF  o 
SCFC 
SOFC 
SCFC 
S  P  F  C 
SCFO 
S  CF  P 
SCFC 


■  • 

*  I 


, 


31 

902 

21 

20 

10  0 

22 

23 

900 

901 

1 

2 

3 

5 

4 

6 


CALL  THREFL( L IMDI 3/ NODB, NOB ) 

I F( L IM4 . EQ. 0 )G0T031 

CALL  FOURFL(MORB/NOB/LIMDI4) 

CALL  COMB  I  N(  METHOD/  I  SYM/  OPB ,  NOBT/ F,J  1  FUM1  F,J2  F'JtJ2 
.HH2  ,  LHH  3,  LHH4,  WK,  EXPCOF/ ENrr,r>Y  rXHlJ  TAU) 

CALL  H I M Z E ( EX^OF,  I SYM/ OPB, COMPL) 

WPITFC  8/  902  )  COM  PL 

FORMAT ( *  0  COMPL  =  1 ,1PD8.1) 

CALL  RENOPMCNOB/NOPB/  ISYM/ EXPOOF/S) 

CALL  ENER (  ISYM/EXDCOE/FH1/FH2/MORT/OPB/ENFPGY) 

CALL  EX  VAHH  (  FHH  1,  FHH  2/  FHH  3/  FHH  4 ,  EXP  OOF/  I  SYM/ NOpT/ OF 
CALL  OUTOKFXPCOF/ \'OB,NOPP,  ISYM) 

CONTINUE 


SCFC 

SOFT 

SCFC 

FMM  3/  F l,H4  /  LH2/  LSCFC 

SCFC 

SCFC 

SOFT 

SOFT 

SCFC 

SCFC 

P/FXHU)  SCFC 

SCF  p 
SCFC 


CALL  OUT  PUT (  EX°COF,OpBrXP/  EXHH,  ENFF^Y/WK,  COM PL/ OpP/  M°pT/MrTMnD/  I TrSCFp 


.R/ON/ ICOMPL/ CHAROF)  SCFP 

I F( COMPL.LT. 1 . D- 10 ) RETURN  SCFC 

CALL  CNVROCC FXPCOF/ ITFR/NnBT/OPP/&23)  Srfr 

CALL  A  ITKEN(  rXf3C0F/ |  morj/ nrn)  cpFr 

CALL  R FW I ND ( 3 )  SPFC 

RFTURN  SpFp 


WPITFC  6/901) 

STOP 

RETURN 

FORMAT ( /// 1  ITERATION  NO.  ’/I3) 

FORMAT ( 1  LOOIOU  HAS  WRONG  PrTUpM') 

DEBUG  UNITC9)/  IN  I T ( COMP L) / SUB CHK/ SUBTP  ACE 
END 

SUBROUTINE  CHANGE  (  XVAL/ YVAL/  XVrC,  YVFC/  NOM/  JCOND/  ICHNGF) 
REAL* 8  DFLTA/XVAL/YVAL/XVFCC 10)/YVEC(  10) 

JCOND  =0 

XVECC  MOM) =XVAL 
YVFCC  NOM ) =Y VAL 
I  F (  NOM-2  )  1/  2  /  3 
DFLTA=XVAL/DFLOAT( ICHNGE) 

XVAL=XVAL+DrLTA 

RFTURN 

DELTA=DFLTA+DrLTA 

XVA,L  =  XVAL+DFLTA 

I  FCYVECC  2  )  .  LT.YVFCC  l))PrTUP>' 

DrLTA=-5.D-l*DFLTA 
X VAL  =XVFC(  D+DELTA 
RETURN 

I F ( NOM . GT . 3 ) GOT04 
I  FCYVECC  3)  .LT.YVFCC  D) GOTO 5 
DFLTA=-5. D-l*DrLTA 
I  COND  -  1 

XVA  L  =  XVAL  +  D  ELTA 
RETURN 

DELTA=DELTA+DELTA 
XVAL=XVAL+DELTA 
I  CO  ND  =  0 
RETURN 

I F ( I rOND . EO . 0 ) GOTOb 
XVAL-XVAL+l. 5D0*DELTA 
XVECC  NOM+ 1) =XVAL 
JCOND =1 


RFTURN 

I FCYVECC  NOM) . LT.YVFCC NOM-1 ) ) rnT  ' 


SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

SCFC 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

CHNG 

PHNG 

CHNG 

CH^G 

PH  NG 

CHNG 

CH  NG 

CHNG 

CHNG 

PHNG 

CHNG 

CHNG 

PHNG 

CHNG 

phng 

CHNG 

CHNG 

PHNG 

CHNG 

CHNG 

CHNG 

CHNG 


I  COND  =  1  CHNG 

DELTA=-5.D-l*OELTA 


.  . 

. 


7 


C 


6 


1 

99 

C 

2 

C 

c 

3 
C 

999 

4 


5 


XVAL=XVAL+DFLTA 

RFTURN 


DELTA=OELTA+OELTA 

XVAL=XVAL+DFLTA 

RFTURN 


DFBUG  U N! T( 9 ) / SUBCHK 
END 

SUBROUTINE  POLYNOC  XVEC/ YVEC/  MAT  VEC  M0D01) 
IMPLICIT  RFAL*8 ( A-H,0-Z) 


nPTA^\'*TMFVrnrrrlr'(  rvT-  1 0  }  ‘  ‘  A  T  (  ‘ °  D°  I  /  •*  ' 0  °°  I  )  /  V  c  G  (  *'0  DO  |  )  ,  X  P  (  9  )  ,  X  P  D  (  9  ) 
OBTAIN  THE  COEFFICIENTS  OF  THF  APPROX  I M A T I NG  D0 1 YNOM ! A I 
XNEW=X V  EC ( 1 ) 


EX  =YV  EC (  1) 


DO  6  JA=2/N0P0| 

IF(EX. LT.YVECC JA) )G0T06 
EX=YVFC( JA) 

XNEW=XVEC( JA) 

CONTINUE 


L1M1  =  NQ  POI-1 


L I  M2  =NOPO I -2 
DO  1  JA  =  1/  NOPO  I 
VEC( JA) =YVEC( JA) 

MAT ( JA/ 1)=1 

DO  1  JB- 1/  L  IM 1 

MAT ( JA, JB+1) =XVEC( JA)** JP 

CALL  GAUSS (MAT/ V EC/ NOPO I ) 

DIFFERENTIATE  THE  ADDRG/ I  MAT  I NG  POLYNOMIAL 
DO  2  JA  =  1/  L  I  Ml 
XP( JA) =VFC( JA+ 1 ) * JA 
SOLVF  FOR  THE  ZFPO  BY  NEWTONS  METHOD 
1:  FORM  THF  DERIVATIVE 
DO  3  JA  =  1, L I  M2 
XPP( JA) =XP( JA+1)*JA 
2:  EVALUATE  FX  AND  FPX 
CONTINUE 


CHNG 

PM  MG 

W  I  I  I  \  V_J 

CHNG 
CHNG 
CHNG 
CHNG 
CHNG 
POLY 
DOLY 
POLY 
POLY 
POLY 
POLY 
POLY 
POLY 
D0  L  Y 
POLY 
POLY 
POLY 
ROLY 
POLY 
POLY 
POLY 
POLY 
POLY 
D0LY 
ROLY 
°0 1  Y 
POLY 
po  i  Y 
POLY 
POLY 
POl  Y 
POLY 
POLY 


XOLD=XNEW 

F  X  =  0 . DO 

F  DX  =  G . DO 

DO  5  J A  =  1 / L I M 2 

FX  =F  X*  XO  LD  +  X  P( NOPO I - JA) 

FPX=FPX*XOLD+XPP(  L  IM1-JA) 

FX  =FX*XOLD+XP( 1) 

DELTA=FX/FPX 
X  N  EW  =  XO  LD  -  D  F  LT  A 

I F(  1.D9 . LT. DABS (DELTA) ) XNEl/=XOLD  + 1 .  DO 
I F ( l.D-6. LT. DABS (XOLD-X NEW) )G0T04 
XV  FC (  1 ) =XN  EW 
RFTURN 

DEBUG  UN IT( 9 )/SUBTRACF/ SUBCHK,  IN  1TCXNEW) 
AT  999 

DISPLAY  XP/XPP 


in 

IBROUTIME  OUTPUTC  ^XPCOF/ ORBcXP/ EXHH/ R^'ER^Y/ WK/ rR‘*nL/ f  rn, 

)/  ITER/ON/  IO0MPL/ CHARGE) 
iPLICIT  REAL*8(A-H/0-Z) 

IMMON/RPNOP/  I N  N  0  (  10  )/  I  STAC  3),  INNORCl  .  ) 

1.' li 15 J.  3,  .  > .  5.  . > .  5 . 

-  •/. . «/• 


POLY 
POLY 
POLY 
POLY 
POLY 
°OLY 
"G  LY 
POLY 
POLY 
POLY 
POLY 
POLY 
POLY 
POLY 
POLY 
POLY 
°OLY 
FTH0UT2 
OUT  2 
0UT2 
0UT2 
0UT2 
0UT2 
GUT  2 
*  0UT2 


c 


22 


21 


20 

C 


2 

1 


C 


I  I 

/ 


4  P- 


./,HFAD2(10)/,1S-  ' ,  ’  2S-  f , ' 3S -  ','43-  ' ,  '  2»-  '  '  3P- 
.  ’  30-  ',*40-  1 // 1 ’’ r  AD  3  (  3 )  /  '  R  AS  !  ’  ’  $ /or  •  *p  r  »/  up^n4(3)/» 

.'BITAVL  '/,BLANKL(32)/32*'  •/ 

I  NT  EGER  QN(15)/LINF(20),LINF1(32),LINF2(32) 

1  F (  ITER. EQ. 1. AND . I COMPl . EQ. 0 ) RE ADC  5.9 19 ) ( L I NE(  JA) .  JA«1,  20 ) 
WRITE(6,920)(LINE(JA),JA!sl/  20) 

I F( METHOD. EG . 1)WR ITEC 6,900 ) 

I F (METHOD. EQ. 2 )WP ITE( 6,9 0 1 ) 

I F( METHOD. EQ. 3)WP! TEC  6,902  ) 

IF (METHOD . rQ.4)WR  ITFC  6,90  3) 

I F ( METHOD . FQ . 5 ) WR I  TEC  6 , 9  2  3 ) 

WRITE (6, 921) ITFR 

NORBT =ORB( l)+ORB( 2)+OPB( 3) 


' 5P-  OUT2 
rP»/  OUT2 
OUT2 
OUT  2 
OUT  2 
OUT2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT2 
OUT2 


LOOP  20  COMPUTES  THE  CUSP  FOP  FACH  ORPITAL 
DO  20  JA=i,  NORBT 

1 SYP  =  1+ I NNO ( JA ) /5+ I NNOC  JA) / 9  —  1 NNO ( J A ) / 10 
NOB=NQBT ( ISYP) 

1ST  =  (  I SY  P- 1 ) *  5 
SUMNUM=0 . DO 
3UMD  EN  =0 .DO 
DO  21  J3  =  1,  NOB 

IFCQNC  IST+JB) . N E . I SY P+ 1 )GOTO 22 
ENM i*ENM I ( ISYP+1, ISYP, I SY P, OPR rX D ( IST+JB)) 
SUMNUM*SUMNUM+EXPCOE(  JD>,  I  N N 0 (  JA)  )*FNM1 
GOT  0  21 

IFCQNC  IST+JB) .NF. ISYP)G0T021 
ENM 2  =  FNM  I  (  ISYP,  ISYP-1,  ISYP-1, OPPFX PC JB+ 1ST)  ) 
SUMNUM=SUMNUM-ORBFXPC  JB  + 1ST) *  FXPCOrC  JR,  1NNOC J A ) )*  RMM2 
SUMDEN=SUMDEN+EXPCOE( JB, I NNOC  JA ) )*  FNM2 


CONT I NUE 

JX= I NNOC JA)-(  I  SYP- 1 ) *4 
CUSPC  ISYP, JX) =99999  .99D0 

I FCSUMDEN . NF  .  0  .  DO  ) CUSPC I SYP, JX) “SUMNUM/SUUDRN 
CONT  I  NUE 

THE  TOTAL  ENERGY  AND  TOTAL  EXHH  IS  C0MPU7FD 

CALL  PR p RTS ( EXP CO F, ORB, NOR T, I TCR, PROSUM, PRO&M) 

V  I RN“0 .DO 
VI PD=0 .DO 
TOTE  N=0 .DO 
TOTFHH=0 .DO 
DO  1  JA  =  1,  3 
LIM=ORB(  JA) 

I F (  L IM . EQ . 0 ) GOTO  1 
DO  2  JB=  1,  LI M 

V  I  pf=V  I  RN+V  I  R  I  r>L(  JA,  JR,  D 

V  I RD=V I RD  +  V I R I ALC  JA, JB, 2 ) 

TOT  EN=T  OTEN+ ENERGY ( JA, JB) 

TOTEHH“TOTEHH+EXHH ( JA, JR) 


V°RIAT-(VIRN-CHARGE*PROSUM(l))/(VIRn.rHARGE.PROSUM(l)) 

EPS  I LO=( WK-TOTEN) 

DELTAS “TOTE HH+WK*WK -2  .  D0*T^  I  rf  *  -Y 

WR^Te" 6^9 0*0 COMPL#  TOTE N/TOTEHH/WK/  EPS  1 1  n ,  DHLT  *  /  Or  t  T 


.  JC  =  1,  3 ) ,  V  !  R  I  AT 
THE  INDIVIDUAL  ORBITAL 
WRITFC  6,905) 


ENFPO I rS 


ARF  WRITTEN  nUT 


DO  3  JA=  1/  3 
L I M“OPB( JA) 

| F( L I M. FO.O )G0T03 


OUT  2 
OUT2 
OUT2 
0UT2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT2 

(  PROS  UM  (  J  C )  ,  OUT 2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT2 


' 

1  ' 

. 

. 


J 


I  ST* 1 STA( JA) 

DO  4  JB=1,LIM 
!  XP  =  I MNO (  IST+J3) 

IORB=!XP-.(JA-l)*4 
I 0=HEAQ2 (  IXP) 

WRITE (6,906) 1C, ENERGY ( JA, JB), EXH«( JA, Jp),  (dpopm(  j A, 
.  ),  CUSPC  JA,  I  ORB  ) 

CO  NT  INUE 

THE  BAS  I SFUMCT  I ONS  AND  VECTORS  ARB  WRITTEN  OUT 
DO  5  JA=  1,  32 
LI  NEK  JA)=BLANK 
L  I  N E 2 ( JA) “BLANK 
LOOP  6  SETS  UP  THE  HEADINGS 

I  s  =  o 

DO  5  JA=  1,  3 
LIM=OPB( JA) 

I  E (  L  I  M  .  EQ  .  0  )G 0T06 
I  ST* I  STAC JA) 

I  S  =  I S+  3 

LI  NEK  IS)=HEAD1(  JA) 

DO  7  J3  =  1,  3 

LINE2C  I S-2  +  JB) =HEAD3( JB ) 

DO  8  JB  =  1,  L  |M 

I  S  =  I S  +  3 

LINE1C  IS)=HEAD2(  INNOC  IST+JB)) 

LI NE2( I S- 1 ) *HEAD4 ( 1 ) 

L I N E 2 (  IS) =HEAD4( 2) 

LINE2C I S+ 1) =H EAD4 ( 3 ) 

CO NT  I NU E 
WRITE (6,922) 

WRITE(6,90  7)(LINE1( JA), JA*1,  32) 

WR!TE(6,907)(  LI  NE2CJA),  JA—  1,  32) 

MAX  =  0 

DO  9  J A  = 1 , 3 

MAX  =MAX0 ( NO  BT ( JA ) , MAX ) 


IS! 1=0 


IS  I  2=0 

I F ( ORB ( 1) .NE.O) IS  I  1  =  1 

I F ( ORB ( 2 ) . N  F . 0 ) IS  12  =  1  SI  1  +  1 

I BLAN 1= IS  I  1* 16  + ORB ( 1)* 12 

I BL AN 2  *  I S I  2* 16  +ORB( 2 )* 12  + 1 B LAN  1 

DO  10  JA=  1/ MAX 

DO  11  JB  =  1, 3 

LIM=ORP.(  JB) 

I F ( L 1 M . EQ . 0 )GOTO 1 1 
I ST= ISTAC JB) 

I F( JA.GT.NOBTC JB) ) GOTO  11 
I S  =  ( JB - 1 ) *  5 
I QN 1=QN ( IS  +  JA) 

VEC(  1)=0P13FXP(  IS  +  JA) 


DO  12  JC=1,LIM 

VEC(JC+l)=EXPCOF(JA, 


N N 0 ( I ST  +  JC)  ) 


OUT  2 
OUT2 
OUT2 
OUT2 
OUT2 

I OpP, JC) , JC=1, 3 OUT 2 

OUT2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT  2 
OIJT2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT  2 
OUT2 


L IM 1  =  L I M+ 1 
I  F(  JB  .  GT .  l)GOTO  13 

WRITE(  6,9  08)  IQN1,  (VFC(  JC),  JC-1,  U  1 
GOT  Oil 


I  B  LAN* I BLAN 1 
I  F (  J B .  EQ .  3 )  I  B LAN  =  I  B  L AN2 
| F (  I BLAN . EQ . 28 )WP  !Tr( j, 

| F (  |BLAN.EQ.40)WP!Tr(o, 


q  09  )  I  ON  1,  (VFC(  JC),  JC*1,LIN1) 
919)  |  ONI,  (VFC(JC),Jr*l,Llrl) 


OUT  2 
OIJT2 
OUT2 
OUT  2 
OUT2 
OUT  2 
OUT  2 


,* 


11 

10 

900 

901 

902 

903 

904 

906 

905 

917 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

1 


I  F  ( I  BLAM .  EQ.  5  2  )WR  I  TE(  6, 911)  |  ONI  (VFCMC1  ir-i  mm 

!F(IBLAN.EQ.64)WRITE(6/912)|QN1  VEC  JC 
1 F ( I BLAN . EQ. 5  6 ) WR I TE ( 6/ 9 13 )  #  C),JC  1 


1) 

1) 


F  (  I  BLAN  .  EH  .  0  3 ) MR  I TE ( 0, G  14 )  |  i  (  VET  (  jr  )  jp-i  i  i  >  ■ 

IF(IBLAN.EQ.30)WRITE(e,915)IPNl  VECUJC)  jMi'l  ” 

I  F (  I  E LAN . HQ. 0 2)WR I TE( 6,916) I QN1*  VEC  JC  ' JC-l' L 
I  F  (1  BLAN.  FO.  1  niiHJPt  TFf  n  -  ,  V'  0  ... L  . 


1) 
1) 
LI  Ml) 


- -  ..  ,  .  I  1.  v  U  ,  X  J  I  i  1 {  V  t  (J  (  JU  )  ,  J  (  =  1  ’ll 

iF(!lLAN:LE:iS4>GOT5!i6'917),QN1'<VECtdC>'JC“i'L,M1> 


WR I TE (C/013) 


STOP 


CONTINUE 

CONTINUE 

RETURN 

FORMAT ( //19X/ 1 
FORMAT ( / / 1 3  X , ' 
FORMAT ( //19X/ 1 


<H> -M I M I M I Z AT  I  ON ' ) 
<(H“E)**2>-‘1|  N I  M I Z AT  I  ON '  ) 

<  ( H-'./K)  **  2>-MI  N I  M I  Z  AT  I  ON  '  ) 


!  <H-WK>**2/<(H-WK)  **2>-MI  N I  M  ZATI  ON'  ) 
H‘ 


8X,F20. 10//) 

FORMAT ( / 4X/ A37 'ORBITAL' , 7(1X,F14.9)) 

FORMAT (  2 IX,  ' <H> ' / 11X, ' <H**2> ' / 10X, ' < 1/R> ' / 9X/ ' <R> ' , 11X, ' <R** 2> ' 
X/  'CUSP'  ) 

FORMAT ( 32A4 ) 

FORMAT ( 5X , I 2/F7.3/F12.8/3F12.8) 


FORMAT ( 


FORMAT  C 


FORMAT ( 


FORMAT ( 


FORMAT ( 
FORMAT ( 
FORMAT ( 


FORMAT ( 


FORMAT ( ' 
FORMAT ( ' 

R.  '  ) 

FORMAT ( 20A4 ) 


,  23 X/ I  2, F7. 3/ F12. 3, 3F12. 8) 

,  4  0  X , I 2,F7.3/F12.8,3F12.8) 
/52X/I2/F7.3/F12.8/3F12.3) 
z  64X/ I 2,  F7. 3,F12.8/3F12. 8) 
/56X/I2/F7.3/F12.8/3F12.8) 

,  58X, I  2, F7. 3, F12. 8, 3F12. 8) 

,  SOX, I 2,F7.3,F12.8,3F12. 8) 

,  9  2X, I  2, F 7 . 3, F12. 8, 3F12 . 8) 

,104 X, I 2,F7.3,F12.8/3F12.3) 

THE  LENGTH  OF  THE  LINE  IN  OUTPUT  HAS  BEEN 


OUT2 
OUT  2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OIJT2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT2 
<OUT2 
OUT2 
F200UT2 
OUT2 
OUT2 
OUT2 
10OUT2 
OUT  2 
OUT2 
OUT2 
OUT2 
OUT2 
OUT  2 
OUT  2 
OUT2 
OUT  2 
OUT2 
OUT2 
OUT2 

EXCEEDED. ERROOUT2 

OUT2 


FORMAT ( ' 1 ' //2  OX, 20A4/ ) 


I TERATI ON  ARE: ' ) 


OUT2 
OUT  2 
OUT2 
OUT2 
OUT  2 
OUT2 
SPLI 


FORMAT ( //20X, ' THE  RESULTS  AFTER  THE', 13,'. 

FORMAT ( /// ) 

FORMAT  (  /  / 1 9  X ,  '  <H-WK>  *  *  2  /  <  ( H- E )  **2>-M  I  MIMI  /.AT  I  ON  ) 

END 

SUBROUTINE  SPLIT2CNOBT, ISY1B, ISY2B)  . 

COMMON  /  SPLI  1/1  1,  I  2,J1,J2,K1,K2,L1,L2,L!MI  ,LI‘  J,LI  K,U  L,J  l,J  -',J  :L, 
MK,  JML,  I  EXP/JEXP/KEXP,  LEXP  ;t  L 

COMMON/S YM/  I  DAR(  8, 10)  L 

I  NT  EGER  NO  BT  (  3 ) ,  I  S 1  (  4 ) ,  I  S  2  (  4 ) ,  I  S  3  (  S  )  ^ 

EQUIVALENCE(IDAR(9)/!S1(1)),(IDAR(13),IS2(1)) 

r  'Ll  VAl  ENCE ( I  1, I S3( 1) ) / ( I  2, I  S3 >( 2  ) )  / ( Jl/ 1  3 C 3 ) ) / ( J2, I  S3 ( 4) ) , ( Kl, I  3SPLI 

(5)),C!C2,IS3(6)ML1,IS3(7)),(L2,IS3C8))  SPL 

I  JN 1  (  I  ,  J)=MI  tJ  0  (  I  ,  J )  +MAX0  ( I  ,  J)  *  (MAX  <  ( I  ,  J)  -1 )  /  DL| 

no  1  JA=1,  SPLI 

CALL^  SYMAS  1(1,11 /  LIMI  ,L1B,M1B,  JM  I.NOBT/ISYIB)  SPLI 

CALL=SYMAS  l^(  1^  Jl/ L  L2B,M2B, JM J, NOBT,  I SY2B)  SPL, 

JEXP=( I SY2B- 1 ) *4+ JM J  SPL, 

CALL  I DNOMC 11/12/ Jl, J2, IG1) 


- 

, 

. 

' ,  . 


2 

3 

10 

11 

12 

13 

14 

15 

1 

2 

3 


CALL  SYMAS2 ( NOBT, 4,  IS3) 

RETURN 

ENTRY  SPLIT3C  IND,NOBT,  ISY1B,  ISY2B  l"Y^n) 

DO  2  J A=  1/  8  ' 

! DAR ( JA/ 9 )  =  I  S  3C  OA) 

C/'LL  S YMAS  I  (  1,  I  1,  L  M4 1 ,  L  IB,  M IB,  JM  ! ,  NOBT  ISY1B) 
|PXP  =  (  I SY IB- 1 ) *4  +JM !  ' 

CALL  S YMAS  I  (  1/  J 1/  L  I  MU,  L 2B  /  M2  B,  JM  J,  NOBT  I  BY  2  P  ) 
JEXP=( ISY2B-1)*4+JMJ 


CALL  SYMAS  I  (  1,  Kl/  L  IMK,  L3B,  M3B,  JMK,  NO^T  I  ^ Y 3 ^  ) 
KEXP  =  ( I SY 3B- 1 ) *  4 + JMK 
I F ( I ND.EQ.O) RETURN 


CALL  IDNOMC  II,  12,  Jl,  J2,  IS  1) 
CALL  I  DNOM(  Kl,  K2,l,l,  IS2) 
CALL  SYMAS 2 ( NOBT, 6,  IS3) 

CALL  SYMAS3CNOBT, 6) 

RETURN 


ENTRY  SPL I T 4 (  I MD, NOBT,  ISY1B,  ISY2B, ISY3B,  ISY4P) 
DO  3  JA=l/8 
IDARCJA,  9)  =  IS3(JA) 

CALL  SYMAS  I  (  1,  I  1,  L  IM  I ,  L1B,M1B,  JM  I ,  NORT,  I S Y  1°  ) 

I  EXP  =  (  ISY  18-1) *4+JM | 

CALL  SYMAS  I  (  1,  Jl,  L  IMJ,  L  2  B ,  M  2  B ,  JMJ/NOBT/  ISY2B) 
JEXP  =  (  ISY2B-1)* 4  +  JM J 

CALL  SYMAS  I  (  1,  K 1,  L  IMK,  L  3B,  M3B,  JMK,  NOBT,  ISY3B) 
KEXp  =  (  I SY  3B- 1) *4  +JMK 

CALL  SYMAS  I  (  1,  LI,  L  UAL,  L4B,M4B,  JML,  NOBT,  ISY4B) 
LE XP  =  (  I  SY4 B - 1 ) *4  +  JM L 


s  pl  r 

SPL  | 
S DL  I 
SPLI 
SPL  I 
SDL  I 
SPL  I 
SPLI 
SPLI 
SPL  I 
S  0  L  I 
SPLI 
3pL  I 
0  DL  I 
R  P  L  I 
SPL  I 
S  pL  I 
SPLI 
S^L  I 
3  p  L  I 
SPLI 
SPLI 
SPLI 
SPLI 
SPLI 
SPLI 
SPLI 
SPL  I 


I  F (  IND.  EQ.ORETURN 

CALL  IDNOMC  11,  12,01,02,  I  S  1) 

CALL  I  0 NO M ( K  1 , K 2 , L 1 , L 2 ,  13  2) 

CALL  SYMAS 2 ( NOBT, 8,  IS3) 

CALL  SYMAS 3CNOBT,  8 ) 

R  rTU  RN 
END 

SUBROUT  I  NE  SYMAS  I  (  I  ND  EX,  I ,  LI!4,  L,  ML,  OM1,NORT,  ISY) 

INTEGER  NO BTC  3) 

IFC INDEX. E0.2)GOT015 

GO  TO(  10,  11,  10,  10, 10,  12,11,  11,  11,  10,10,  10, 10,  10, 13,  12,12,  12,11, 
,  11,  11,  ID,  I 
OM  1  =  1 
GO  TO  14 
OM  1  =  2 
GO  TO  14 
OM  1  =  3 
GO  TO  14 

JM1*4  r  „  ,  0  , 

GO  TOC  1,  1,2,  3,  4,  1,2,  3, 4,  5,6,7,  8,0,  1,  2,  3,4,  d,  ,,  ,  ,  / 

GO  TOC  1,  2,  3,  4,  5,6,  7, 8, 9  ),  I 
I  SY  =  1 

L I M=NQBT( 1) 

L-0 
ML  =0 
RFTURN 
I  SY  =2 

L IM  =  NOBT ( 2  ) 

L  =  1 
M  L  =  - 1 
RETURN 
I  SY  =2 


SPLI 


SPLI 
SPLI 
SPLI 
SPLI 
SPL  I 
SPLI 
SY  A  1 
SY  A  1 
SY  A  1 
11, SYA1 
SY  A  1 
SYA  1 
SY  A  1 
SYA  1 
S  Y  A  1 
SY  A 1 
SY  A  1 
SYA  1 
SY  A  1 
SY  A 1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
S  Y  A  1 
S  Y  A  1 
SY  A  1 
SY  A 1 


. 

' 


L I  M  =  N03T ( 2  ) 

L  =  1 

ML=0 

RFTURN 

4  ! SY  =2 

L I M=NO  BT ( 2  ) 

L  =  1 
ML  =  1 
RETURN 

5  I SY  =  3 

L |M =NOBT ( 3) 

L  =  2 
ML  =  -2 
RFTURN 

6  I  SY  =  3 

L I M=NOBT( 3) 

L  =  2 
ML*-  1 
RETURN 

7  I  SY  =  3 

L !M  =MOBT ( 3) 

L  =  2 
ML  =  0 
RETURN 
3  !  SY  =  3 

L IM=NOBT( 3) 

L  =  2 
M  L  =  1 
RETURN 
9  !  SY  =  3 

L  IM=NOBT  (  3) 

L  =  2 
ML  =  2 
RFTURN 
END 

FUNCTION  SYMCHE(QN) 

INTEGER  SYMCH  E, ON 
SYMCH  E  =  2 

I  FCQN.LE.2 .OR.QN. EQ. 6 .OR.QN. EO . 15 )SYMrHF  -  1 

I  F (  I  ABS  (QN- 12 )  .LE.2.0R.  I ABS (QN-2 1) . LE.  2)SYMCHE*3 

RETURN 


END 

SUBROUTINE  S YMAS 2 ( NOBT, LD06 , I S 3 ) 

INTEGER  I  DX(  4  ),  NOBTC  3),  IM(  2,  b  ) /l,  3,  1,  1, //  ,  /  *  f 

INTEGER  IS3(8)/IS4(8) 

C  IDAR  CONTAINS  IN  ITS  SECOND  COLUMN  TH F  SYMFTRIFS 
C  TO  WH ICH  12,11, ETC.  BELONG 
COMMO N /SYM / I D  AR ( 8 , 10 ) 

!  j  N  1  ( 'l  J,  J  ) 1m  (|  N  0  u' ,  J )  +  ( M  A  X  0  (  I ,  J )  *  ( M  A  X  0  (  I ,  J )  - 1  >  >  /  2 
LD01=LD06-1 

C  A  S^MMET^c’  INDEX  FOR  EACH  ELECTRON  ,S  COMPUTE 
DO  1  JA-1,  LD06,2 
IDARCUA, 1 ) = JA 

I  DAR(  JA  +  1,  l)=vJA+  1  x  •  »  n  /  I  *  i  o'n 

1  I D ARC  JA,  3)  =  I  JN  1(  I D ARC  JA,  2  ) ,  IDARC  JA+1,  *  > ) 

c 

C  THE  ID'S  OF  THE  INTEGRALS  ARE  SORTED 

3  I  X  =0 


SYM 
SYM 
S  Y  A  1 
SY  A  1 
SY  A  1 
SY  A 1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
SY  A  1 
S  Y  A 1 
SY  A  1 
SY  A 1 
SY  A 1 
SY  A  1 
SY  A  1 
>  Y  A 1 
SY  A  1 
SY  A  1 
SY  A  1 
S  Y  A 1 
SY  A 1 
S  Y  A  1 
SY**  1 
S  Y  A  1 
S  Y  A 1 
SY  A  1 
SY  A 1 
SY  A  1 
S  Y  A  1 
S  Y  A  1 
SY  A 1 
SY  A 1 
SYCH 
SYCH 
SYCH 
SYCH 
SYCH 
SYCH 
SYCH 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SY  A  2 
SY  A2 
SYA2 
SYA2 


•  •  .  .... 

•  ‘  . '  .  .  . 

*  *  *  •  • 

.  • 


5 


11 

4 

C 

C 

30 


31 


32 

2 

C 

C 

120 


13 

14 

15 

16 
17 
13 

19 

20 

21 

12 

121 

C 


DO  4  JA=1, LD04, 2 

I  X ^  (  JA,  5 )  .  LE  .  I  DARC  JA+2,  3  ) )  GOTO 4 

DO  5  03  =  1,3 
DO  5  JC  =  1, 2 
IEX=!DAR(JA+JC-1,JB) 

I DARC  JA+JC-1, JB )  =  I DARC JA+JC+1  JB) 

IDAR( JA+JC+1, JB)=I EX 
DO  11  JC  =  1, 2 
IEX=IDAR( JA+JC-1, 9) 

I DARC JA  +  JC- 1,9) =1 DARC JA+JC+1,  9) 

IDARC JA+JC+1, 9)=l EX 

CONTINUE 

I  F(  I  X.  EQ.  DG0T03 

THE  ELECTRONS  ARE  RESORTED  S.T.  OF  TV/O  ELECTRONS  WITH  EQUAL  I.D. 
IN  IDARC*,  3)  THE  ONE  WITH  THE  SMALLER  STARTING#  IS  FIRST 
I  X  =  0 

DO  2  JA= 1, LD04, 2 

I  F ( IDARC JA, 3) . NE. I DAR ( JA+ 2, 3 ) ) GOTO 2 
I  F (  I  DARC JA, 2) . LE. I DAR C JA+ 2, 2 ) ) GOTO 2 
IX  =  1 

DO  31  JB  =  1, 3 
DO  31  JC=1, 2 
I EX= I DARC JA+JC-1,  JB) 

IDARC JA+JC-1, JB)  =  J  DARC JA+JC  +  1,  JB) 

IDARC JA+JC  +  1, JB )  =  1  EX 
DO  32  JC=1, 2 
I EX= I DARC  JA+JC-1,  9 ) 

I DARC JA+JC-1, 9) =1 DARC JA+JC  +  1,  9) 

IDARC JA+JC  +  1, 9)  =  l  EX 
CONTINUE 

I F ( I  X . EQ. 1 ) G0T03 0 

AN  ID  FOR  THE  ORBITALS  IS  COMPUTED 
1S  =  1  2S  =  2 . . . 2P  =  5  3 P  =  6 . . . 3D  =  8  4D  =  9 
DO  121  JA= 1, LD06 
DO  121  JB=1, 2 
I F( JB. EQ. 1) I  SI G  =  l DARC  JA,9 ) 

1FCJB.EQ.2) 1SI G=I S3CJA)  „ 

GO  TO (13, 14, 17,  17, 17,  15, 18, 13, 13, 20, 20,  20,  20,  20, 16,  19,  19, 1^,  21, 

.21,21,21), ISIG 
I  DA=1 
GOTO  12 
I  DA=2 
GOTO  12 
I  D  A  =  3 
GOTO  12 
I  DA  =  4 
GOTO  12 
I  DA  =  5 
GOTO  12 
I  D  A  =  6 
GOTO  12 
I  DA=7 
GOTO  12 
I  D  A  =  3 
GOTO  12 
I  DA=9 

I F( JB. EQ. 1) IDARC JA, 10) =1  DA 
IFCJB.EQ. 2) I S  4 ( J  A )  =  I  DA 
THE  PARTNER  FOR  EACH  BRA  IS  FOUND 


SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
21, SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 


■  4 1  1 . 


. 


I Y  =9 

200  DO  210  JA=1,LD06,2 

I F ( I  S  3 ( JA) .  NE . I S  3 ( JA  +  1 )  )GOT02 10 
DO  211  I  A*l,  LD06 , 2 
IF(  IS  3(  JA)  .NE.  IDARC  !/'/  |Y)  )  GOTO  2 11 
IF(  I S  3(  JA+  1)  .  N E.  ID ARC  IA+1,  IY))Gnj0211 
IDARC I  A,  IY) =0 
IDARC  I A+ 1, I Y ) =0 
IDARC  I  A, 1 ) =J A 
IDARC  I  A  +  1/ 1 ) =JA  +  1 
G0T02 10 
211  CONTINUE 
210  CONTINUE 

C  LOOP  220  CHECKS  IF  THE  INTEGRAL  IS  OF  THF  FXFHAMGEn  K  I MD 
I  SUM  =  0 

DO  220  JA  =  1,  LD06 
220  I  SUM=  I  SUM  +  I  D  ARC  JA,  IY) 

I  F (  |  SUM . EQ . 0 ) R rTUR  N 

C  THE  LOO^S  230  HANDLE  TWO-CYCLF  EXCHAMGF 
DO  230  JA= 1/ LD06 / 2 
I F (  IS3C JA) . EQ.  IS3C JA  +  1) ) GOTO 230 
DO  231  I  A  - 1, LD06 , 2 
IFC  IS3C JA) .NE.  IDARC I  A,  IY))G0T0231 
IFC  IS  3(  JA+1).  NE.  IDARC  IA+1,  IY))G0T02  31 
DO  2  32  I  B  - 1,  LDO  6 ,  2 

I  F(  IS3C  JA)  .ME.  IDARC  I  B+  1/  IY)  )  GOTO  2  32 
IFC IS 3( JA+1) .NE. IDARC IB,  I Y) ) GOTO  232 
J  L  I  M  =  J  A  +  2 

I F(  JLIM.GT. LDO6)GOTO2  30 
DO  233  JB=JLIM,LD06,2 
IFC IS3CJB) .NE. IS  3 (JA+1) )00T02  3  3 
IFC IS3CJB  +  1) .NE. I S  3( JA) ) G0T02  33 
IDARC  I  A,  IY) =0 
IDARC  IA+1,  I Y )  =0 
IDARC I B, IY) =0 
IDARC  I B+  1,  I Y ) =0 
IDARC I  A, 1 ) =  J  A 
IDARC IA+1, 1 ) =JB+  1 
IDARC IB, 1 ) =JB 
IDARC  IB+1,  1 )  =  J A+  1 
G0T023Q 
233  CONTINUE 
GOTQ230 
2  32  CONTINUE 


GOTO230 
2  31  CONTINUE 

2  30  CONTINUE 

C  LOOP  240  CHECKS 
I SUM=0 


IF  THE  INTEGRAL  CONTAINS  TRIDLE  OR  QUADPUPLE  EXCHANGE 


DO  240  JA= 1, LDO 6 
240  ISUM.=  ISUM+ IDARC  JA,  IY) 

IFC  I  SUM . EQ . 0  )RFTURN 

C  LOOPS  250  HANDLE  THE  THR EE&FHU P-CYr L 
DO  2  50  J A=  1,  LD06 ,  2 
IFC IS3C  JA) . EQ. IS  3 (JA+1) ) GOTO  2 50 


EXCHANGE 


SYA  2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SY  A2 

SYA2 

SYA2 

SYA2 

SYA2 

S  Y  A  2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 

SY  A2 

SY  *2 

SYA2 

SYA2 

SYA2 

SYA2 

SYA2 


252 


I  RE=0 

DO  251  1  A=  1,  LDO 6 , 2 
IFC  IS3C  JA)  .NE.  IDARC  I  A+  I  P  r, 
IDARC IA+IRF, I Y ) =0 
IDARC IA+1 RE, 1)=JA+IRE 


I  Y ) ) GOTO  2  5 1 


SYA2 

SYA2 

SYA2 

SYA2 


. 


251 

250 

C 


260 


262 

261 

900 

901 
C 

6 

10 

7 

3 

9 


I RE= I RE+  1 

IF(  I  RE . EO . 2 )G0T02  50 
G0T0252 
CO  NT  I  NUE 
CO  NT  I  MU  E 

LOOP  260  CHECKS  IF  ALL  ORBITAL  HAVE  AOR c  |m  tm  Rrp  on' E 
I SUM  =  0 

DO  260  JA=1/LD06 
l$UM= ISUM+ | DAR( JA/ IY) 

I F ( I  SUM .  EO  .  0  ) RETURN 
I F (  I Y . EO . 10  )G0T026  1 

I Y  =  1 0 

DO  262  JA=1,  LD06 
I S  3( JA)  =  I S4 ( JA) 

GOTO200 

WR I  TEC  6/900)(  !  S  3  ( J  A)  ,  JA  =  1,  LD06) 

W R  ITE(  6/901)(  (  IDARCJA,  JB)  ,  JB  =  1,  10),  JA  =  1,  LDr>6) 

STOP 


SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SY A  2 
SYA2 
SYA2 
SYA2 
S  Y  A  2 


FORMAT  (  6  5  (  *  *') /4  OX ,'  ERROR  IN  I  VTEGRALSORT  I  *!G  1 /6  5(  *  **  )//4(3X,  213)  SY  A  2 

\  r*  \0  *  - 


.  ) 

FORMAT (  '  ’,10  14) 

ENTRY  SYMAS3CNOBT, LD06) 

THE  VALUES  L  I M  IB ,  L  IB,  ETC .  ARE  COMPUTED 
DO  6  JA  =  1,  LD06 


SYA2 
SYA2 
SYA2 
SY  A 2 
SYA2 


CALL  SYMAS  1(2,  IDARCJA, 2),  I DAR( JA, 4),  lnAR( JA, 5),  I DAP( JA,  6 ) , JM, NO°T, SY A2 


SYA2 

SYA2 

SYA2 


2 

3 

4 

1 


IDARCJA, 7)) 

I F ( LD06-6 ) 8,9, 10 
DO  7  J A= 1, 6 

IDARCJA, 8)  =  l JN1C IDARC IM( 1, JA), 3),  IDARC IM( 2, JA),  3) ) 

RETURN 

ID  ARC  1,  8)  =  l  JM  (  IDARCl,  3),  ID  ARC  3,  3)) 

RETURN 

IDARC2,  3)  =  l  JN1C  ID  ARC  3,  3),  ID  ARC  5,  3) ) 

IDARC4,  3)  =  !  JN1C  ID  ARC  1,  3),  I  D  A  R  (  5 ,  3 ) ) 

I  DARC  6  /  3  )  =  I  JN  1(  IDARCl,  3),  IDAPC3,  3)) 

RETURN 
END 

SUBROUT  I  ME  I DNOMC I  A,  IB, JA, JB,  IS) 

INTEGER  I  S( 4  ) , SYMCHE,  I  V ( 4 ) 

I  VC  1 )  =  I  A 
I  VC  2  )  =  I B 
I  VC  3 )  =J A 
I  VC  4)=JB 
DO  1  J  1  =  1,  4 

I FCSYMCHFC  I V( J 1 ) ) -2 ) 2 , 3, 4 
I  S  (  J  1 )  =  1 

GOTO  1  x 

I  S  (  J  1 )  =  I  V(  J  1 )  -  4 *  (  I  V(  J 1 )  /  7 )  +  (  I  V(  J  1 )  / 16  )  -  1 

I S ( J 1 )  =  I  VC  J l)-5* ( |V(Jl)/9)"4*(  IV( Jl)/19) 

CO  NT  I  NUE 
RETURN 

SUBROUTINE  SYM  34  (  NOBT,  LO  l ,  LO  J,  L^' ,  Ln  L,  I  ^  Y.M,  * ,  L!  f  I  ) 

I  NT  EGER  I  S  V (  4  ) ,  NO B T  (  3  ) ,  I  V (  3  ) ,  1.(4) 

LOGICAL  LC  (  4  ),  LO  I ,  LO  J,  LpK,  LnL,  L  *p 

COMMON /SYM/ I DARC  8,  10  )  L I M ! , L I N J, L I MK, L I  ML , JN I , JM J, JSY A  3 

C0MM0N/SPLI1/I1/I2,J1/J2,K1,K2,L1,L^,li  ,  '  SYA3 

.MK, JML,  I  EXP,  JEXP,  KEXP,  LFXP  SY A3 

EQU  I  VALENCEC  I  V(  1),  I  lM  I  *  (1)'J 


SYA2 
3YA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
SYA2 
I  DNO 
I  DNO 
I  DNO 
I  DNO 
I  DNO 
I  DNO 
I  n^o 
I  DNO 
I  DNO 
I  n,'0 
I  DNO 
I  DNO 
I  DNO 
I  DMO 
I  DNO 
I  DNO 
SY  A  3 
S  Y  A  3 
SYA3 
SY  A  3 


.  i . :  ) 

. 


LOG® . FALS  F . 

I F( L IM IT . EQ . 4 )CALL  3 PL  I  T4  C  0  r,OpT 

I  F( LIMIT. EQ.3)CALL  SPLIT3C  0,' NOPt' 

DO  1  JA® 1, L  |M  IT 

LC(  J A)  =  I S V( J  A)  . EQ . | SYM 

LOG^LQG . OR . LCC  JA) 

I  F(  .NOT.  LOG)  RETURN1 
I  X  =  0 

DO  2  JA=2, LIMIT 
I F ( LC( JA) ) GOTO  2 
I F ( . NOT. LCC  JA- 1 ) ) GOTO 2 
I  X=  1 

LOG=LC ( JA- 1 ) 

LC( JA-1) =LC( JA) 


I SV( 1)/ I SVC 2 ),  I  SVC  3), I  SVC  4) ) 
I  SVC  1),  ISVC  2 ),  | SVC  3) ) 


LCC JA) =LQG 
I FX= I  VC JA  +  JA-2) 

IV(JA+JA-2)=IV( JA+JA) 

I  VC  JA  +  JA) =1 FX 
IFX=IV( JA+JA-3) 

I  VC  JA+JA-3 )  =  I  VC  JA+JA-1) 

I V( JA+JA- 1) = I FX 
CO  NT  I  NUE 

I  F (  I  X.  EQ.  UGOTOll 

IFCLIM IT.EQ.4)CALL  SPL IT4C 0, NOBT,  ISVC 1 ) ^  I  SVC  2 ),  I  SVC  3 ) ,  I  SVC  4 ) ) 
I  F  C LIMIT. EQ.3)CALL  S PL  I T3C 0, NOBT,  ISVC 1 ) ^  ISVC  2 ) , I  SVC  3)) 

DO  4  JA®  1,  LIMIT 

LCC  JA)  =  IS  VC  JA)  .EQ. ISYM 


LOG®. FALSE. 

DO  8  JA=2, LIMIT 
LOG=LOG.OR.LCC JA-1) 

IFC . NOT . LOG) GOT  0  7 
LU  P  ®  L  I M  I  T  - 1 
IS  =  LUP 

DO  9  JA=  1/  LUP 

IFC  LCC  L IM  IT-JA) ) IS=LIM IT-JA 
IFC  LCC 1) 3  IS  —  1 
I  X  =  0 

DO  6  JA=I  S/  LUP 

I  F  (  I  VM  (  J  A)  .  L  E  .  I  VM  (  J  A+  1 ) )  GOTO  6 
I  X  =  1 

I EX=l VMC JA) 

I VMC  JA)  =  I VMC  JA+1) 

I VM ( JA+ 1 )  =  I  EX 
I EX= I  VC  JA  +  JA-1) 

I  VC JA+JA-1)  =  IV( JA+JA  +  1) 

I  V(  JA+JA+1)  =  I  EX 
I  CX= I  VC  JA+JA) 

I V( JA+JA) = I  VC  JA+JA+2 ) 

I  VC  JA  +  JA  +  2 )  =  I  EX 


CO  NT  I  NUE 

IFC  IX.EQ.DG0T05 

I FC  L  IM  IT. EQ. 3) GOTO  10 

CALL  SPLIT4C  l/NOBT/  I  S  1, 

LO I  =  I S 1 . EQ  .  ISYM 

LOJ® I S2 . EQ. ISYM 

LOK= I S  3 . EO . ISYM 

LOL=!S4.EQ. ISYM 


IS2/  IS3/  I S  4  ) 


R  FT  U  R  N 

CALL  SPL  I  T  3  C  1/  NOBT,  I  SI,  IS  2,  IS  3) 
LO I = I S 1 . EQ . ISYM 


SY/'  3 
SY A  3 
SY  A  3 
SY  A3 
SY  A3 
SY  A3 
SY  A  3 
SYA3 
SYA  3 
SY  A  3 
SYA  3 
SY  A3 
SY  A  3 
SY  A3 
SY  A  3 
SY  A3 
SYA3 
SY  A3 
SYA3 
SY  A  3 
SYA  ’ 
SY  A3 
SY  A3 
SY  A3 
SYA3 
SY  A3 
SYA  3 
SYA  3 
SY  A3 
SY  A  3 
SYA  3 
SY  A  3 
SY  A3 
SY  A3 
SY  A  3 
SYA  3 
S  Y  A  3 
SY  A  3 
SY  A  3 
SYA3 
SY  A  3 
SY  A  3 
SY  A  3 
SY  A3 
SY  A3 
SY  A  3 
SY  A3 
SY  A3 
SY  A  3 
SY  A3 
SY  A3 
SYA3 
SY  A  3 
SY  A  3 
SY  A  3 
SY  A3 
SY  A3 
SY  A  3 
SY  A  3 
SY  A3 


. 


LO  J  =  I  S  2  .  EQ  .  I SYM 
LOK=  I  S  3  .  Ef) .  | SYM 
RETURN 
END 

C  UoFD  F^c^(!)RECT-ACCESS/  PROGRAMMED  BY  L .  TH  I  ?L,  COMP .  CFNT .  U  OF  A 

SFTUP  &EPM 
US ING  SAVE,  13 


SAVE 


LOG  IOU 

* 

* 

* 

* 

* 

* 

* 

* 

* 


VGD 

VFPEE 

STWORK 


RTN 


14 ( 15) 

X  *  0  8  1 
CL8&EPN 
14,  12,  12  C  13) 
11,  13 
13,  36(15) 

1 1,  S  AV  E+  4 
13,  8 ( 11) 
STWORK 
1 8  F  '  0  * 


B 

DC 
DC 
STM 
LR 
LA 
ST 
ST 
B 

DC 
MEND 
CSECT 

CALL  LOGIOUC  I  NFO,  LOGIJ,  &RTN) 

GENERATE  A  CALL  TO  GDI  NFO  FOR  A  LOOICAL  I/O  14' I T  AND  PFTUR' 
THE  INFORMATION  SUPPLIED  TO  TMF  USER. 

INFO  -  A  16  BYTE  R  1 0  N’  AS  DfSCPIR^O  |  N  "MTS  SYSTEM 
SUBROUTINES"  UNDER  GD I NFO( NORMAL  PrTUR*')  . 

LOGU  -  AMY  MTS  LOGICAL  I/O  UNIT,  LFFT  JUSTIFIED  WITH 
TRAILING  BLANKS. 

ALTERNATE  RETURN  -  NAME  IS  NOT  A  LEGAL  LOC-IOAL  I/O  UNIT  OP 
NO  DEVICE  WAS  ASSIGNED  TO  THE  UNIT. 

NO  INFORMATION  RPTUR*’ED  IN  THIS  CASE. 

SETUP  1  LOG  I  OU ' 

DC 
DC 
LM 
L 

LM 

BALR 
LTR 
BNZ 
MV  C 
SR 
L 

BALR 
LR 


L 

LR 
L 

LM 
BR 
END 


V(  GDI NFO) 

V(  FREESPAC) 
2, 3, 0(1) 

15, VGD 
0, 1,0(3) 

14,  15 
10,  15 
RTN 

0(16, 2), 0(1) 
0,  0 

15,  VFPEE 

14,  15 

15,  10 

13, S AV  F+  4 
15,  10 
14,  12  (  13  ) 

0, 12, 20(13) 
14 


PARM  LIST 
ADOR  Or  GDI NFO 
LOGICAL  I/O  UNIT 


TEST 

MOVE 

pprp 


pr 

I  NFO 

I  NFO 
REG  in*' 


GO  I  NFO  Rr 
RETURN  ADOR 

reload  ro  -  P12 


C  THE  FOLLOWING  ROUTINES  COMPUTE  INTEGRALS  OVER.  SI  ATFP-TYDr-OPp  I TAL3 
C  THEY  HAVE  BEEN  CODED  BY  F.W.BIRSS,  DF.pT .  CHFM. , U  OF  "  pp1  pp2) 
SUBROUTINE  ONE  I  (  NB,  LB,  MB,  CB,  NK,  IK,  K,  .  " 

C  ONE  ELECTRON  INTEGRALS 

C  CF ACT  ASSUMED 

RFaITs'^IO) */4($o"l0333333333333333,  2.  666666666666666,  n.?D0,  4 

.^9  2D0,  5714285714285714,6.857X42857142858,68.57142857142858, 

.4285714285714/ 

INTEGER  ID/0/ 


SY  A3 
SY  A  3 
SY  A3 
SY  A  3 
LIOU 
L  IOU 
LIOU 
LIOU 
LIOU 
I  IOU 
LIOU 
LIOU 

LIOU 
L  IOU 
LIOU 
LIOU 
LIOU 
L  IOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
l  IOU 
LIOU 
LIOU 
LIOU 
LIOIJ 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
LIOU 
ONI  N 
ON  IN 
ONI  N 
ON  I  N 
ON  IN 
ON  IN 
. 8DOON  IN 
411.0*  IN 
ON  1 1 
ON  |N 


■  .  ■  28  'l  'uu  o  is  .e 


COMMON /C FACT /FACT (41) 

I  F  (  I  D  .  EO  ,  1 ) GOT 02 
I  D  =  1 

FACT ( 1 )  =  1 . D  0 
DO  1  1=2,41 

FACT(  I ) =DFLO AT (  l-l)*FACT( 1-1) 

S=0 . ODO 
H  =0 . ODO 
HH=Q . ODO 
RM1=Q .DO 
RP 1=0 . DO 
RP2  =0 . DO 

I  F(LB.NE.LK.OR.MB.NE.MK.OR.  I  APS  (MB)  .  OT  .  LB  )  PFTURN 
C=CB+CK 
N-N8+NK+  1 
CP=C**N 
C  PM  1 =C  *  * ( N-l) 

CPP1-C**( N+l) 

CPP2=C**(N+2) 

L  =  LB* ( L3  +  1) 

ENB  =  (  L-NB*  ( MB  -  1 ) )  *  0 . 5D0 
ENK  =  ( L-NK* ( NK  -  1) )*  0 . 5D0 
CZB=CB*NB-Z 
CZK=CK*NK-Z 
CS B  =CB*  CR*  0 . 500 
CS  K=CK*  CK*0 . 5D0 

FT  =  F  C( ( LB* ( LB+1) ) /2 + I ABS (MB ) + 1) 

S=FT*FACT ( N) /CP 
RM1=FT*F  ACT  (N-D/CPMl 
RP1  =  FT*FACT(  N+D/CPP1 
RP2  =FT*F ACT( N  +  2 ) /CPP2 

H  =  FT*( ( FNK* F ACT ( N-2 ) *C  +  CZK* F ACT( N- 1) ) * C-CSK* FACT(  N)  )/CP 
I F( N. GT. 4 )HH=ENB*  ENK*FACT( N-4 ) *C 

I  FCN.GT. 3)HH  =  (HH  +  ( ENB*CZK+ENK*CZB)*FACT(N-3) )*r  --  ■ 

^H  =  FT*  ( ( (HH+(  CZB*  CZK-ENB*  CSK-ENK*  CS  B ) *  F  ACT(  r-2  )  )*r-(CZD*CSK+r'ZK*rSOr!  " 

.  B )  *  F  ACT  (  N- 1 ) )  *  C+CSB*  CS  K*  F  ACT (  N ) )  /CP  ™  [  J;’ 

RFTURN  nN|N, 

SUB  ROUT  I  NE  HR  (  NIB,  L  IB,  M1B,  C1B,  N2  B,  L2B,K2B,  C2P,  Nl1',  LI”,  •  •  1 K  ,  OIK,  *K,  HP  I 
.L2K,M2K,C2K,Z,T1,T2) 

MIXED  H  AND  1/R(1,  2)  INTEGRALS 
RFPI  REQUIRED 

EN1=(K  5D0*(  L1B*(  L1B+1)-N1B*(  N1B-D  +  L  IK*  (  L  1K+ 1) -M  IK*  j ( *‘  l^  }  } 

EN2=0  ,5D0*(L2B*(L2B+1)-N2B*(N2B-1)+L2K*(  L2K  + 1 )  -  N2  <*  (  - ;  •*- 

CZ 1=C 1b*N 1B  +  C IK*  N1K-Z-Z 
CZ2=C2B*N2B+C2K*N2K-Z-Z 
CS  1=0  .  5D0 * (  C1B*C1B+C1K*C1K) 

CS2  =0 . 5D0*( C2B*C2B+C2K*C2K) 

L2B,N2B,C2B,H«,LXKHR.- 

.  2K,  C2K,  1/ 0,  0,  l.DO,  1,  0,  0, 1  .Of  )  HP|v 

F=0.0D0  ,  ,  .  1R  Min  r  i  o  f.  1 2  0  -  2  L2B,M2B,C2B,N  IK,  L  1KHR  I  N 

1 F( EN2  NE.O*  0D0)F*RFPI  ( 1,  NIB,  LIB,  M IB,  C IB,  i*  ,  HR|N 


ONI  N 
ON  I N 
or1  in 

ON  |  N 
ON  |  N 
ONIN 

ON  IN 

ONI  N 

ONIN 

ONIN 

0*'  I  N 

ONIN 

ONIN 

ON  IN 

ONIN 

ONIN 

ONIN 

ONIN 

ONIN 

ONIN 

ON  |  V 

ON  I  N 

ONIN 

ONIN 

ONIN 

ONIN 

ONI  N 

ON  I  M 

ONIN 

ONIN 

ONIN 

ON  I  N 

0  N  I  N 

ONIN 


HR  I  N 

up  |  N 

HR  I  N 
HR  1 1 
!  N 
HR  I N 
HR  IN 
' 1 R  I  N 
HR  I  N 
HR  I  N 
HP  I  N 


.  .  i  I 

.  : 


.  ,M2K,  C2K,  1,  0,  0 ,  1.  DO,  1,  0,  0,  l.DO) 
T1  =  FN1*A+CZ1*B-CS1*C 
T2=FN2*F+CZ2*G-CS2*C 
RETURN 


END 


FUNCT  I  Of  FrPI(  I MD, NLA, LLA, MLA, CL  A, NR  A,  LDA, MPA- CP  A,  NLR, LLR, MLB  CLB 
1NRB,  LRB,  MRB, CRB, NCA,  LCA,MCA,  CCA,  NCB,  LCB,MCB  CCB)  '  ' 

ONE-CENTRE  TWO-  AND  THRC  E- EL  FCTnDN  I  MTEGR AL*  FUMCT  I  ON  (IMAGINARY) 
ANGL  I  REQU I  RED 

IMPLICIT  RFAL*3  ( A-H,0-Z) 

REAL* 8  FC(325,5),PL(9,5),ST(55),TP(45) 

I  NT  EGER*  4  IU/0/,  LT(3),MT(  3) 

I  NT  EGER* 2  I C (  32  5,  5 ) /  15 7 5*  0/ 

COMMON  /CFACT /  FACT (41) 

COMMON  /CPS  I /  PS  I (11) 

IF  ( I U . EQ . 1 )  GO  TO  7 

I  U  =  1 


FACT ( 1 ) = 1 . DO 
DO  1  1=1,40 

1  FACT (  I  +  1)  =  I  *  FACT ( l ) 

PS  |(  1)  =0  .  ODO 

DO  2  1=1,  10 

2  PS  I  (  I  +  1 )  =  PS  I  (  I  )  + 1 .  D  0  /  I 
W  =  1 .  D  0 


HR  |  N 
HR  I  N 
HR  IN 
HR  |  *' 
HR  |  M 
rr  pi 
Prp| 
prp| 
nrp| 

PR  P  I 

prp| 

RPPI 
PEP  I 
REP  I 

prpj 

FrP| 
REP  I 
PF  P  | 
p  r  P  | 
PPP| 
P^PI 
RFPI 

prpi 

REPI 


DO  4  LP=1,9 
W  =  0  .  5  D  0  *  W 
MA  =  (  LP+D/2 
ML=LP+LP-1 
Y»(-1.D0)**MA*ML*W 
DO  3  MP=  1,  MA 
Y  =-Y 

M  B  =M  A  -  M  P 
MC=LP-MB 
MD=MC-MB 

3  RL(  LP,MP)*Y*FACT(MD  +  LP-l)/(FACT(MB  +  l)*FACT(Mr)*FACT(MD)) 

DO  4  MP  =  1,  LP 

4  TP(  (  LP*  (  LP+  1) )  /2  -MP+ 1) =16 . D0*FACT(  LP+MP-1 )  /(  F  ACT  ( l  D-Mp+  1)*ML**2  ) 
DO  6  LXP  =  1,  5 

LT ( 1) =LXP- 1 
MA=LXP+LXP- 1 
DO  6  MX  P  =  1,  M  A 
MX  =MXP- LXP 
MT ( l)=l ABS(MX) 

LMX=LXP* (  LXP-D  +  l-MX 
DO  6  LY P  =  LX P,  5 
LT( 2 ) =LYP- 1 
MC  =  LYP+ LYP- 1 
LMAXP-LXP+LYP 
DO  6  MY  P®  1,  MC 
MY  =MYP-LYP 
MT(  2  )  =  I  ABS ( MY  ) 

LMY  =  LYP*  (  LYP-D  +  l-MY 
IF  (LMX.GT.LMY)  GO  TO  6 
LMXY  =( LMY* ( LMY - 1 ) ) /2  +  LMX 
I PLC=0 

DO  5  LS  P=2 , LMAXP,  2 
LB  =  LM  AX  P-  LS  P 
LT (  3 ) =LB 
MB  =MY -MX 
MBA® I ABS (MB) 


REPI 
PPPI 
RFPI 
Rr P  I 
PFPI 
RPP  I 
RFPI 
PFPI 
RFPI 
REPI 
REPI 
PRPI 
PFPI 
REP  I 
RRPI 
PEPI 
REPI 
PFPI 
R  r  p  I 
Pr  PI 
PFPI 

DTD  | 

PFPI 
RFPI 
RFPI 
PPR  I 
RRPI 
PFPI 
RFPI 
RPPI 
RFPI 
PFPI 
RFPI 
PPPI 
PFPI 
PCPI 


••  ) 


IF  (MBA.GT.L3)  GO  TO  5 
MT ( 3 ) =MB  A 
X=ANGL!(LT,MT) 

IFCX.EQ. 0.0D0)  GO  TO  5 
I PLC  =  I DLC+ 1 

I  C(  LMXY,  I  DLC)  =  LB*  (  LB  +  D  +  l-MBA 

FC(  LMXY ,  !  PLC)  =X*  (  LB  +  LB+1)*FACT(  LP-MRA+1)  /FARTC I B+UP *+ 1) 

5  CONTINUE 

6  CONTINUE 

7  REPI =0.0D0 

IF  (  I  ND  .  LT  .  3  .  AND  .MLA+MRA.  NF .MLB+MRB)  peTUP*' 

MA=LLA* ( LLA+ 1)+ 1-MLA 
MB=LLB*(  LLB+D  +  l-MLB 
I L=MAXO(MA,MB) 

I L  =  (  I L*(  I L  —  3 ) ) / 2 +MA+MB 
NL=MLA+NLB 
C  L  =  C  LA  +  C  L3 

MA=LRA*(  LRA+D+  1-MRA 
MB  =  LRB*(  LRB+  D  +  l-MRB 
I R-MAXO (MA/ MB) 

I R- ( I R* (  I R  —  3 ) ) / 2 +MA+MR 

NR-NRA+NRB 

CR=CRA+CRB 

GO  TO  (8,9,34),  I  ND 

8  C= 1. DO /( C  L  +CR) 

CA=C*CL 

CB=C*CR 

C=C** ( NL+NR+ 1) 

GO  TO  11 

9  IF(CL.LE.CR)  GO  TO  10 
MA=N  L 

NL-NR 

NR*MA 


X  =CL 

CL=CR 

CR=X 

10  C=CR/CL 
CS=C*C 

V  =  -D LOG(  C) 

CA-C/CC+l.DO) 

CB=C-1 . DO 

IF  (CB.GT.0.0D0)  C3=C/CB 

11  KP  =  - 1 

DO  33  1=1/5 
M A  =  I  C (  I  L,  I  ) 

IF  (MA.LT.l)  RETURN 
DO  32  J  =  1,  5 

I F  (MA- ICC  | R, J) ) 32, 12, 33 

12  K  =3  Q  RT  (  F  LOAT  ( M A-  1 )  +  0 . 0 0  1 ) 

MU»((K+l)*CK+2))/2-IABS(K*(K+l)+l-1A) 

IF  (K.EQ.KP)  GO  TO  31 

IF  ( IND.EQ.2)  GO  TO  15 

M  A  =N  R  -  K 

MC=NL+K 

CR  =  1 . DO 

SA=0 .0D0 

DO  13  L«1/MA 

CR  =  CP*  CB  v 

13  SA=SA+FACT(MC+L)*rP/PArT(  L) 

MB-NL-K 
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P.EPI 
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RFPI 
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PFPI 

PFPI 

RFPI 

PFPI 

RFPI 

PPPI 

RFPI 

RFPI 

REPI 
pep  | 

PFPI 

RFPI 

RPPI 

rcPI 

RFPI 

PFPI 

RFPI 

PFPI 
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RFPI 

PFPI 

RFPI 
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RFPI 

REPI 

RFPI 
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RFPI 
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PPPI 
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MC-NR+K 
CL  =  1. DO 
S  B  =0 . 0D0 
DO  14  1*1,  MB 
CL  =  CL*  CA 

14  SB=SB+FACT(MC+L) *CL/FACT( L) 

SA*C*(3A*FACT( M A )  /(CB*CP)+SB*FArT(MR) / C C A * r t  )) 
GO  TO  30  '  LL)} 

15  MB*K+  1 

DO  2  7  LP=1,MB 
I A  =  L  P+  LP-3 
DO  27  MP-LP,MB 
LM*(MP*(MP-1)) /2+LP 
KM=K-2* (MP-LP) 

I  B  P  *  N  L  -  KM 
13  =  1  BP-1 
3 A=0 . 0D0 

IF  ( IA.GT.0)  GO  TO  25 
DO  2  4  I  1  =  1/  IBP 
S  B  =  0 . 0D0 
Y  =  1 . DO /C 
Z  =  1 .  DO 
I  IM=  I  BP-  I  |  +  1 
DO  23  LL-1,  I  |M 
Y=Y*  C 

MD*NR+KM+LL-1 
SC=0. 0D0 
CAM* 1. DO 
Z  =  -Z 

IF  (  I  I . GT . 1 )  GO  TO  21 
CBM=Z 

I F( CB . GT . 4 . D  0 )  CBM=0.0D0 

DO  16  NP-1,MD 

X=V 

IF  (MD.NE.NP)  X  =  l. DO/CMD-NP) 

CAM* CAM*  CA 
CBM=CBM*CB 

16  3C=SC+X* ( CAM+CBM) 

IF  (C.NE.1.D0)  GO  TO  17 

SC=SC-Z/MD 

GO  TO  20 

17  IF  (CB.LF.4.D0)  GO  TO  20 
CBM=CB 

CAM-1. DO/CB 
SD  =0 . 0D0 

DO  18  NP  =  1/  10000 
CBM-CBM*CAM 
X  =CBM / ( MD  +  NP- 1 ) 

SD  =5  D  +  X 

IF  (X/SD.LT.l.D-18)  GO  TO  19 

18  CONTINUE 

19  SC=SC-Z*SD 

20  S  C  =  F  ACT ( MD ) *S  C 
GO  TO  23 

21  X=0.5D0*Z/C 
U-1.D0 
SC=0. 0D0 

I M  =  I  1-1 

DO  22  NP=  1/  IM 

x=x*r 
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22 

23 

24 

25 


26 
2  7 


28 


29 

30 

31 

32 

33 

34 


U  =-U 

IF  (U.NF.Z)  SC=S O-F ACTC MD+MP- 1 ) /( X* FA^TC NP) ) 
SB=SB+SC/(Y*FACT( LL)  )  ' 

S  A=S  A+3  B*  F  ACT ( IBP) /DMAX 1( 1 . D0/ DFLOATC I  |-i)) 
GO  TO  27  ' 


|  A  p  =  I  A+  1 

ME=NR+KM+  1 

CBM  =  2 .  DO* F  ACT (  I AP) /C 

DO  26  II =2 / I AP, 2 

CBM=CRM*CS 

SA=SA+FACT(  18+1  I )* FACT (ME- I  I  )  *  CRM  /  ( FA  OT( 1  A  p - | |+2)*CACT(  I  I  )  ) 
ST(LM)=SA/(CL**NL*OP**pR*C**KM) 

M  C - ( l  +  ( - 1)**K) /2 

MD=K/2+l 

SA=PL(MB, 1)*ST(MD)*MC 
MD=MD-MC 
M  F  =M  C 

DO  29  L=1,K 
L  K  =M  B  -  L 
DO  28  M  =  1,  LK 
DO  28  N*M, LK 
M  N  =  ( N*( N-l) ) /2+M 

ST(MN) =0 . 5DQ* ( ST (MN) +STC MN  +  N) -STCMN+N+l) ) 

I F  (MC.NE.O)  GO  TO  29 
ME-ME+1 

SA=SA+PL(MB,ME)*ST(MD) 

MD-MD-1 
MC=  1-MC 


KP=K 

RE  PI =RFP |+TP(MU)*FC( I L,  I  )  *  FC( IP, J)*SA 
CO  NT  I  NU  E 
CO  NT  INUE 
RETURN 

IF  (MCB-MCA . NE.MLA-ML8+MRA-MPB)  RETURN 
CC=CCA+CCB 
S  =  CC  +CL  +  CR 
WA-S/CL 
WB=S/CR 
RA«CC+CL 
RB=CC+CR 
AAM=R A/CL 
ABM=RA/CR 
B  AM  =  R  B  /  C  L 
BBM=RB/CR 
NC*NCA+NCB 
NCP=NC+NL+NR+ 1 
MA  =  LCA*  (  LCA+D  +  l-MCA 
MB  =  LCB*(  LCB+D+l-MCB 
IM=MAX0  (  M  A,  MB) 

IM  =  ( | M  * ( I M  —  3 ) ) /2+MA+MB 

LS  A  =  - 1 

LSB=- 1 

DO  40  1=1/5 

MA=I  C(  I  L,  I  ) 

IFCMA.LT. 1)  RETURN 

LL=SQRT(  FLOAT  (MA-D  +  O.  001) 

LT( 1) =LL 

MT(  1)  =  I  ABS(  LL*(  LL+D+l-M) 

DO  39  J  =  l/5 
MA=  I  C(  I  R,  U) 
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I F (HA. LT. 1)  GO  TD  4Q 
LR=SQRT ( F  LOAT( MA-1 )  +  0 . 001) 

LT ( 2 ) =LR 

MT  (  2 )  =  I  ABS  (  LR*  (  LR+  1 )  +  1-flA) 

DO  38  K  =  l,  5 
MA=IC(IM,K) 

IFCMA.LT. 1)  GO  TO  39 
LM=SQRT( FLOAT (MA-1) +0.001) 

LT ( 3 ) =  LM 

MT( 3 ) = I ABS ( LM* ( LM+ 1) +1-MA) 

V=ANGLI  (LT/MT)*64.D0/((LL  +  LL+1)*(  LR+LR+1)  ) 
IF(V.EQ.O.ODO)  GO  TO  38 
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REPI 

REPI 
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REPI 

REPI 

REPI 
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IF  ( (  LL.  EQ. LSA.AND. LR. EQ.  LSB) .OR. ( LL. EQ. LSB.AND. LR. EQ. LSA) )  GO  TO  REPI 


137 
NLM=N  L- LL 
NLP=NL+  L  L+  1 
NRM=NR- LR 
MR  P  =  NR+  LR+  1 
NCM=NC-LL- LR-1 


REPI 

REPI 

REPI 

REPI 

REPI 

REPI 


S  A = U  F  (  N  C  P ,  N  L  M , N  R M ,WA,WB)-UF(NCP,NLM,NRP,WA,WB)-UF(NCP,NLP,NRM,WA,  REPI 
1WB )  REPI 

I F ( NCM . GT . 0 )  SA=SA+UF( NC  P, NLP, NRP, WA/ WB )  REPI 

SUM=SA/S*  *NCP+VF  ( NCP,  NLM,  NRP, RA,  AAM, ABM)  +VF  (NCP,  NRM,  NLP, RB , BBM, BAMREP I 
1)  REPI 

IF(NCM.LE.O)  GO  TO  35  REPI 

SUM=SUM- VF( NCP, NLP, NRP, RA,  AAM ,  ABM  )-VF(NCP,NRP,NLP,RB,  BBM,  BAM  )  +  FACTR  EP I 


1  (  NLP )  *F  ACT ( NRP) *  FACT ( NCM ) / ( C  L**  NLP*CR**  NR  P*  CC**  NCM ) 

GO  TO  36 

35  NCM =- NCM 
NCM1=NCM+ 1 
MCM2=NCM+  2 
NCM 3  =NCM+  3 

W=FACT( NLP) *FACT( NRP) / ( CL**NLP*CR**NRP) 

SI  Dl  =  ( D  LOG ( RA*RB/ ( CC*S ) ) +PS I (NCM1) ) * ( -CC) *  *NCM / FACT(  NCM  1 ) 
$  I  D  2  =  F  I  D  A  (  R  A  ,  N  C  M ,  W  A ,  A  AM ,  1 ) 

S I D3=F I DA( RB, NCM , WA, BBM ,  1 ) 

S I D4=F I DA(  S, NCM/WA,  WB,NCM1) 

S  I  D5=F I DBCRA, NCM,  1,  1, WA, NCM3, NLP,  AAM,  1 ) 

S  I  D6  =  F I DB( RB, NCM,  1,  1, WA, NCM3, NRP, BBM,  1) 

S  I  D 7  =  F I DB (  S, NCM,  1,  NCM 1, WA, NCM3 , NRP,  WB,  1) 

S  I  Do  =  F I DB (  S, NCM, NCM 2,  NLP,WA,  1,NRP,  WB,2) 

S I D=S I Dl-S I D2-S I D3  +  S I D4-S I D5-S I D6+S I D7+S  I  D3 

S I DT=S I D*W 

SUM-SUM+SIDT 

36  LSA  =  L L 
LS  B  =  Ln 

3  7  REPI  =RE  P I  +  FC(  I  L,  I  )*FC(  I  R,  J)  *FC(  I  M,  K)  *  V*S'UM 
33  CONTINUE 

39  CONTINUE 

40  CONTINUE 
RETURN 
END 

FUNCTIONS  TO  ASSIST  REPI 

/CFACT /  FACT  AND  / C  PS  I /  PS  I  REQUIRED 

FUNCTION  ANGL I ( LT,MT) 

IMPLICIT  REAL* 8 ( A-H, O-Z) 

I  NT EGER *4  LT(3),MT(3) 

COMMON  /CFACT/  FACTC41) 

COMMON  /CPS  I  /  PS  I  (ID 
ANGL I =0 . 0D0 
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ANG  I 
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ANG  I 
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.  . 
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! ST  =  LT (  1 )  +  LT( 2 )  +  LT( 3) 

I  F( ( -1)** 1ST. LT.O)  prTURM 
DO  1  1=1,3 
I A= I  +  1-3  * (  1/3) 

I B- I +2-3* ( 1/2) 

LU  =  LT (  I  ) 

MU  =MT (  |  ) 

IF  (MU.EQ.MTC  IA)+MT( IB)  .AND  .  LU 
1  I  A) - LT(  IB)))  GO  TO  2 

1  CONTINUE 
RETURN 

2  IF  ( LT ( IA) .GE.LT( IB))  GO  TO  3 
MC=  I  A 

I  A*  IB 
IB-MC 

3  LV  =  LT (  I  A) 

MV  =MT (  I  A) 

LW-LTC IB) 

MW=MT ( IB) 

I  S= I  ST /2  + 1 

MA  =M  I  NO  (  LW-MW,  LU  -MU )  +  1 
X=- 1 . DO 
DO  4  1=1  ,MA 
X  =  -X 


ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 

LF.LTC I  A ) + 1 T (  |B) .AND.HJ.GE. 1 ABS( LT( ANG I 

ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  I 
ANG  | 
ANG  I 
ANG  I 
ANG  I 
ANG  I 


4  ANGL  I  =ANG  L  I  +X*F ACT ( LU+MU+ I ) *  F  ACT( LV  +  LW-MU- l+2)/(FACT( I ) *  FACT( LU -MU  ANG I 
1-  l  +  2)*FACT( LV-LW+MU+ I ) *F *CT( LW-MW-l  +  2 ) )  ANG  I 


ANGL  I =ANGL I *FACT(  LV+MV+ 1)  *  FACT (  LW+MW+1)* FACTC  IS)*FACT(  I  ST-LW-L’ '+  1)  ANG  I 
1*  (  -  1 .  DO)  **  (  IS-LV-MW)  / (  F  ACT (  I  S-LIJ)*  FACTC  IS-LV)*FACT(  IS-LW)*  A*NGI 

2  FACT (  I ST+2 ) *FACT ( LV-MV+ 1 ) )  ANG I 

RETURN  ANG  I 


8 

9 


10 


ENTRY  UF ( NCP/ NLM, NRM,WA,WB) 

UF=0 .DO 
FK=WA 

DO  9  K  =  l,  NLM 
UFA=0 . DO 
FK=FK/WA 
F  L=WB 

DO  8  L  =  1,  NRM 
FL-FL/WB 

UFA=U  FA  +  F  L*FACT ( NCP-NLM -NRM  +  K+ L-2 ) /FACTC L) 
UF=UF+FK*UFA/FACT(K) 

U  f  =U  F * F  ACT  (  NLM )  *  F  ACT  (  NRM )  *W  A*WB  /  (  FK*  F  L ) 

RETURN 

ENTRY  V F ( NCR, NLM, NR P, R A, A AM, ABM) 

VF=0 .DO 

fk=aam 

DO  10  K  =  l,  NLM 

FK=FK/AAM  . 

VF  =VF+FK*  F  ACT(  NCP-NLM-NRP  +  K-1)  /FACTC l-  ) 

VF*VF*FACT( NLM)* FACT ( NRP)*AAM* ABM** NRP/ ( RA**NCP*FK 
RETURN 

ENTRY  F  I D A (  V 1,  I  V 2 ,  V 3,  V4 ,  I  V F  ) 


Y  =0 . DO 

DO  12  L  =  1/  I  V  5 
X=0 .DO 
KU  P- I V2 -L+  2 

X»X  +  FACT(KUP ) *  PS  I C  KU  P+  1 — K } / ( FACT ( K )*F ACT ( KUP+ 1-K)*  C -V4)**(K-1)) 
11  Y=yIx/'(FACT(L)*FACT(KUP)*(-V3)**(L-1)) 


ANG  I 
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ANG  I 
ANG  I 
ANG  I 
I 

ANG  I 
ANG  I 
ANG  I 


•  •  •  ... 

. 
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12  CONTINUE 
F|D4=Y*( -VI)** | V2 
RFTU  RN 

-TRYqP  I  ^r'  (  V 1,  I '/  2  /  I  V  3,  I  V4  ,  V  5,  IV6/IV7/V8  /  IV9) 

DO  i4  1=173, IV4 
I F ( IV9.EQ.1)  KLO=l V6-L 
I F ( I V9 .EQ.2)  KLO= I V6 
X=0 . DO 

DO  13  K=KLO,  IV 7 

X=X+FACT( K+L- I V2-2 ) / ( F  ACT ( K)*V8**(K-1)) 

13  CONTINUE 

Y=Y+X/(V5**(  L-1)*FACTC  L)  ) 

14  CONTINUE 

F I DB=Y* V 1** I V2 

RETURN 

END 

NORMALIZATION  FUNCTION  (IMAGINARY) 

FUNCTION  ENMKN,  L,M,C) 

IMPLICIT  RFAL*8(A-H,0-Z) 

R  FAL*  8  CN(  1 3  )  /  2  .DO,  .6666666666660666 7,  .  888888888888888S9D-1, 

1.  6349 2 06 349 2 06 349 2D-2,  .  282  18694  88  53b 15 5D-3, 

2. 85 5 111966 2 2307 7D- 5,  .  1879  366  9  58  732 0  3 8D-6, 

3. 3132  2  78  2  64  55339  7D- 8,  .  4094  48139  1573067D-10, 

4. 430  99  80  4 12  1821 74D- 12,  .  3  73  15  84  7  72  4  52  ID- 14,  .  27040469  36  559  4  8  7D -16, 
5.  166  4  02  88  8  40  366  ID- 18/, CT(  15)/. 5D0, .7  5D0, 1. 5D0, .  104166  6666  6  666  6  7, 
2. 41666  66  66  66  66  66  7,  2.  5D0,  . 46 11111111 1111 11D -2,  .  29  16666 66666666  7D- 
3. 29  1666  666666666  7,  3  .  500,  .  1108 07  1428  5 71429 D -3, .  339  28  571428  5714  3D- 
4.125D-1, .22500,4.500/ 

ENM  I  =DSQRT  (  C**(  N+N+  1)*CT(  ( (  !  +  1 )  *(  L  +  2  ) ) /2  -  I  A ”9  (M )  ) *  PM  ( r. ) ) 

RETURN 

END 

SCHMIDT  MATRIX  MULT  I  PL  I  CAT  I  ON  SUBROUTINE 
SUBROUTINE  MULTS ( NB,H, EM, T) 

IMPLICIT  R EAL* 8 ( A-H, O-Z ) 

REAL*  8  H  (  2  ) ,  EM  (2),T(  2) 

DO  4  N=  1,  2 
DO  4  1=1,  NB 

DO  4  J  =  I ,  NB 
JQ-(J*(J-l))/2 
I J=JQ+ I 
B=0 . 0D0 
MA=J 

IF  (N.EQ.2)  MA= I 
DO  2  K=  1,  MA 
I  K-MAXO (  I,  K) 

I K-(  I K* (  I K-3 ) )  /2  +  I +K 
KJ=JQ+K 

IF  (N.EQ.2)  GO  TO  1 
B  =  B  +  H(  |K)*  EM ( K J) 

GO  TO  2 

1  B=B  +  EM(  I  K ) * T ( KJ) 

2  CONTINUE 

I F  ( N. EQ.2 )  GO  TO  3 

T (  I  J)  =3 
GO  TO  4 

3  H(  I  J)  =3 

4  CONTINUE 
RETURN 
END 
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ENM  I 
FNM  I 
MULT 
MULT 
MULT 
MULT 
MULT 
MULT 
MU  LT 
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. 


.  . 
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l 


C 
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SCHMIDT  MATR I X- E I  0 ENV ECTOR  MATR  I 
SUBROUTINE  VMULT(MO,C, EM, ND) 
IMPLICIT  RFAL*8 (A-H/ O-Z) 

RFAL*8  C(ND,ND),EM(2) 

DO  2  1=1,  MO 
DO  2  J  =  l,MO 
X=0.0D0 
DO  1  K= I , MO 

X=X+HM( CK*C K-l) ) /2  +  I ) *  C( K,  J) 

CC  I,  J)  =X 

RFTURN 

END 


MULTI  PL  KAT  I  ON  SIJPPOUTINE  VMUL 

VMUL 
VMUL 
VMUL 
VMUL 
VMUL 
VMUL 
VMUL 
VMUL 
VMU  L 
VMUL 
VMUL 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
SOMS 
DIG. 8,  SOMS 
SOMS 
SOMS 
FDIT 
PD  IT 
FDIT 
FDIT 
FDIT 
FDIT 


SCHMIDT  ORTHOGONAL  I Z AT  I  ON  SUBROUTINE 
SUBROUTINE  SOMS (MO, S, EM) 

IMPLICIT  REAL*8 C  A-H, O-Z ) 

REAL* 8  CUT/1. D-6/, EMC 2),S(2) 

I  FR  =  0 

EMC  1)=DSQRT(S(  D) 

IF  (MO.LT.2)  GO  TO  6 
DO  5  I =2, MO 
|0  =  (  |*(  I  —  1 ) ) / 2 
I A= I Q+l 

EMC  I  A ) =S (  I  A) /EMC  1) 

DO  4  J=2 ,  I 
JQ=(J*(J”l))/2 
I J= I Q+  J 
X  =S  C  I  J) 

JM-J  - 1 
DO  1  K=  1,  JM 

1  X-X-EMC IQ+K )* EMC JQ+K ) 

IF  ( I . EQ. J)  GO  TO  2 
EMC  I J) =X/EM( JQ+ J) 

GO  TO  4 

2  IF  ( X . GT . CUT . OR . I ER . EQ . 1)  GO  TO  3 
WRITE  (6,901)  X 
I  ER=  1 

3  EMC  I J) =DSQRTC X) 

4  CONTINUE 

5  CONTINUE 

6  DO  8  1=1,  MO 
X  =  1 .  D  0 
DO  8  J= I , MO 
JQ-C J*C J-l))/2 
Y  =  1. DO /EMC JQ+J) 

IF  (  I  .EO.  J)  GO  TO  8 
X  =  0 . 0D0 
JM= J- 1 
DO  7  K=l, JM 

7  X-X-EMC ( K*( K-l) )/2  + 1 )*FM(  JO+K) 

3  EMC  JQ+  I  )  =X*Y 

H  FORMAT  C0M31C‘')/23X/W-'^  • /lx”  m(  ^ '  ) /T  ' 

1'.  CHECK  RESULT  FOR  LOSS  IN  PRCCI  I  .  /I  ,  11'  >/ 

rHEFOLLOW  I  NG  ROUTINES  "IJHE  ROUTINES  USFD  TO  FDIT  ,  THI^TH-S' S 

HE  FIRST  PROGRAM  RFADJUSTo  I  .  P'  i  T  T  -  ,T(f  ,  i  *  t  /  g#  R/ '  |  '  /, 

I NTEGER*2  TE(  80),  BUF(  80 ),  BLANK/  /,  •  ,  rn /'?'/,  O'  . VdO)/ 


r  t 

o 


. 

i 

. 

. 

. 
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*  *  *  * 


' /, B  LAVFCC  2  5) 


C 

c 

c 


900 

901 

902 

903 

904 

906 


INTFGPR  I  COL/60/ ,  L  I  ^'END/28/^  I  DFNT  /5  /  ,  p*i  /  » 

LOGICAL  JUMP 
THE  PROGRAM  DOFS: 

A)  READ  A  L I  *!E  WITH  A  MAXIMUM  WITH  OF  80  CH*P*CTFRS  FDOM  U*'IT(1) 

B) LOOKS  lc  LINE  IS  TO  3P  ED|TCD(  FIRST  CHARACTFR  IF  *'o-EO|T) 
OLOOKS  IF  A  NEW  PARAGRAPH  IS  TO  Br  STAPTFP(*  FO|  LOWFD  PY 
D)ASKS  FOR  A  STARTING  PAGF  NUMBER  AND  NlJMRPRS  T'*F  PAGE'S 
F)  $  STANDS  FOR  LITERAL  NEXT 

FORMATC*  ENTER  THE  STARTING  PAGC  NUMBER  I M  3-D  I r IT  FORM* /IPX*  I  F 
.  F  I  FT  FEN  AS  015’ ) 

FORMATC  I  3) 

FORMATC  5  7X,  I  3) 

FORMATC  8 0 A 1 ) 

FORMATC’  A  WORD  LONGER  THAN  TEN  LETTERS  WITHOUT  A  HYPHFN  HAS  5 F E H 
.  ENCOUNTERED* /10X/  '  CHANGE  THIS  WORD  AMD  p  FSTART  '  /  ?0  A 1 ) 

FORMATC  A4) 

THE  STARTING  PAGE  NO.  IS  ASKED  FOR 
WR ITEC  6,900) 

READ ( 5,901) I  PAGE 
L I NCNT  =  3 

WRITEC  2,  902  ) IPAGE 
WR ITEC  2,90  3)BLANKV 
JB  =  1 

RE  ADC  1,  903, END  =  34 ) TF 
JUMP*. FALSE. 

I  B  L  AN  =  0 

I F C  TEC  1) .NF. BAR) GOTO 2 
IFCJB.EQ.D60T03 
JB  =  JB  -  1 

WR  ITEC  2,90  3)  (SUFCJA),  JA  =  1,  JB) 

L I  NO NT  =L I MCNT+1 
JB  =  1 

WRITEC  2, 9  03  )C TEC  JA), JA  =  2,61) 

LI  NCNT  =  L  I  NCNT  + 1 
I  F  (  L I NCNT . LT . L I NEND ) GOTO  1 
WRITEC  2/906) PM ARK 
I PAGE  = I PAGF+  1 
WRITE (  2, 9 02  ) I  PAGE 
WRITEC  2,  9  0  3 ) B  LANKV 
LI NCNT =3 
GOTO  1 

I  FCTEC  1)  . NE . Q.U ER) GOTO 4 

IFCJB.EQ.DGOT05 

J3  =  JB  -  1  „  1B, 

WRITEC  2,  903  )  (  BU  F(  JA) ,  JA=  1,  JB) 

JB*  1 

WRITEC  2,906) PMARK 
LI NCNT *3 
I PAGE= I PAGE*  1 
WR ITEC  2,902) I  PAGE 
WRITEC  2, 9 03 )B LANKV 
GOT  O  1 

I FCTEC l).NE.PLUS)GOTO10 

1 F( JR. EO  .  DG0T06 

J3= JB  - 1  x  ID. 

WRITEC  2,9  03) (BUFCJA),  JA-1,  -  ) 

JR  =  1 

LINCNT-LINCNT+1 
I FPEE=0 
DO  70  JA=2, 3 


FD  IT 
FDIT 
FD  I  T 
RD  IT 
PD  IT 

NEW  I  I  f,E  FD  I  T 
SIJPPSS  I  VELEDIT 
PD  IT 
EDIT 
FDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
PD  IT 
EDIT 
FDIT 
ED  I  T 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
FDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
PD  IT 
EDIT 
EDIT 
ED  I  T 
EDIT 


' . 

r  '  J  -■ 


.  . 
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DO  7  00  =  1,10 

!  F(TE( JA) . NE.ZAHLC JC) ) GOTO 7 

GOTO  70  IF REE+(1'M0D(JA' 2 ) ) * 10*MOD ( JC, 10 )  +  C  JA-2 ) *MOD( JC,  10) 

CONTI NUE 
CONTINUE 

I F( I FREE  +  L1 NCNT . LE. L I NEND ) GOTO  18 
I PAGE= I PAGE+1 

WRI TEC  2,9  06) PMARK 
WRITEC  2,902) I  PAGE 
WR I  TEC  2,903)B LANKV 
LI NCNT=3 
DO  3  JA  =  1, I  FREE 
L I NCNT =L I NCNT+1 
WR I  TEC  2, 9  03 ) B LANKV 
GOTO  1 

DO  11  JA= 1, 8  0 
I F ( JUMP ) GOTO  14 
I FCTEC JA) .NE. BLANK) GOTO  12 
IFCJB.EQ.DGOTOll 
I BLAN=I BLAN+1 
I  F  (  I  BLAN.GT.  DGOTOll 
GOTO  13 
I BLAN=Q 

I FCTEC JA) .NE. DOLLAR) GOTO  15 
JUMP= . TRUE . 

GOTO  1 1 

I  FCTEC JA) . EQ.HYPH. AND. I  COL-10. GT. JB) GOTO  11 
I  FCTEC JA) . EQ. STAR) GOTO  16 
I F ( I  COL-10. GT. JB)G0T014 

I  FCTEC  JA)  .  EQ.  COMMA.  OR.  TEC  JA)  .  EQ.  HY  PH.  OR.  TEC  JA)  .  EQ .  DOT .  OR .  TE  ( 
. JA) . EQ. BLANK) GOTO  17 
GOTO  21 

NOBLA=l COL-JB 
I  ST  =  1 


DO  19  JC=I ST, NOBLA 
I FCJA+JC.GT. 80)GOT0190 
I FCTEC  JA+JC) . EQ. BLANK) GOTO  141 
I FCTEC JA+JC) . EQ.HYPH) GOTO  140 
I FCTEC JA+JC) . EQ. DOT) GOTO  140 
I FCTEC JA+JC) . EQ. COMMA) GOTO  140 
CONTINUE 

I FCTEC  JA) . NE . BLANK ) BUF C  JB ) =TE C  JA) 
I FCTEC  JA) . EQ. BLANK) NOB LA=NOB LA+ 1 
GOTO  20 

IFC JC.ME. I  ST ) GOTO  140 
I ST= I ST+ 1 
GOTO  170 

IFCJB.NE.  I  CO  L ) GOTO  14 
I FCTEC JA+1) . ME. BLANK) GOTO  2 2 
BUF ( JB ) =TE ( JA) 

G0T023 

WRITE  C  6, 904  )TE 
STOP 

I FCTEC JA) . EQ.HYPH) GOTO  11 
BUF C  JB ) =TE ( JA) 

JUMP=. FALSE. 


JB=JB+1 

IFCJB.LT. ICOL-10)GOTOll 

I  FCTEC JA) . EQ.HYPH. OR. TEC JA) . EQ. BLANK ) GOTO 2  + 


EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
F  n  I  ~ 
EDIT 
EDIT 
E^IT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDI  T 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
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24 

240 


25 


250 


C 

16 


260 

26 


C 

20 

27 

28 


29 

30 

31 


32 


33 


23 


c 


I F ( TE ( JA) . NE. DOT. AND 
NOBLA= I COL-JB+1 
I  ST  =  1 


.TE( JA) . NE . COMMA) GOTO  11 


DO  25  JC= I  ST, NOB  LA 
I  F(  JA+JC.GT. 80) GOTO 20 
I F ( TE ( JA+ JC )  .  EQ. BLANK) GOTO  25  0 
I  F  ( TE  (  JA+JC)  .  EQ .  HY  PH )  GOTO  11 

I  F( TEC JA+JC) . EQ.DO T . OR . TE ( JA+JC ) . EQ. COMMA) GOTO  11 
CONTINUE 

I FCTEC JA+NOBLA+ 1) . EQ. BLANK ) GOTO  11 
GOTO  2  0 

I F ( JC.NE. 1) GOTO  11 
I ST= I ST+ 1 
GOTO  240 

A  NEW  PARAGRAPH  IS  STARTED 
JB  = JB - 1 

I  F  (  JB  .  EQ.  0  )  GOTO  26  0 
WRITE(2,903)(BUF(JC),JC=1, JB) 

LI NCNT=L! NCNT+1 

I F( LI NCNT.NE. L I N END ) GOTO  260 

I PAGE= I PAGE+1 

WRI TEC  2,906) PM ARK 

WR I  TEC  2,902) I  PAGE 

WR I  TEC  2, 9  03 ) BLANKV 

LI NCNT=3 

DO  26  JC  =  1, I  DENT 
BUF ( JC ) =B  LANK 
JB  =  I  DENT  + 1 
GOTO  11 

BUF  IS  RIGHT  JUSTIFIED,  I.E.  BLANKS  ARE  REMOVED 
I FCNOBLA. EQ . 0 ) GOTO  23 
JD  =  1 

JC  =  I D  ENT+  1 

I FCBUFC JC) .NE. BLANK) GOTO  29 
I FCBUFC JC  +  1) . EQ. LE PAR) GOTO  29 
BLAVECC  JD ) =JC 
JD=JD+ 1 
JC=JC+1 

I F  C  JB-1 . GT . JC ) GOTO  28 

I FCMODC JE, 2) . EQ. 0) JF=JD-JF 
L I MG= I COL-NOBLA+1 
L I M=L I MG-BLAVECC  JF ) 

DO  32  J G  =  1 , L I M 

BUF ( LI MG+l-JG) =BUF ( L I MG-JG) 

L I MJ=JD+1-JF 
NOBLA=NOBLA- 1 
I FCNOBLA. EQ. 0)GOTO23 
DO  33  J G  =  1 , L I M J 

BLAVECC  JD-JG+1)  =B  LAVE C(  JD-JG+D  +  l 

JE=JE+1 

I F( JE. LE. JD)G0T031 
GOTO30 

WR I  TEC  2,9  03) (BUF ( JG), JG  =  1,  I  COL) 

L I NCNT  =  L I NCNT+1 
I F( LI NCNT. EQ. LI  MEND) GOTO 9 


JB  =  1 
GOTO  11 
LI NCNT=3 
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EDIT 
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JB  =  1 

WRITE (2, 906) PM ARK 
I PAGE  = I PAGE* 1 
WR  1  TEC  2,9  02  ) I  PAGE 
WRITEC 2, 903 )BLANKV 
CO  NT  I  HUE 
GOTO  1 
L I MB-JB- 1 

WR  |TE(  2/9  03)(BUF( JG), JG  =  1,  LIMB) 

STOP 

DEBUG  UN  I TC  9 ) , TRACE, SUBCHK, IN  IT( BUF, JB, NOBL A/ 1  INCNT) 

ATI 

TRACE  ON 
END 

THIS  IS  THE  PRINT  VERSION  FOR  TERMINAL  USr 
I  ST  A,  I  END  ARE  THE  FIRST  AND  LAST  LINE  NO.  OF  TME  FILE  TO  B r 

EDITED.  PLEASE  NOTE  THAT  THE  FILE  MUST  3^  NUMB  ERFD  IN  PTR^M^MTS 
INTEGER  TEC  15 ) , BLAVC  2 ) /2* '  '  /, PM ARK /’**** ' /, CQNT I N, BLANK/ ' 

R  FAD  (  5,  904)  ISTA,  I  END 
DO  1  JA=1,  40 

I F ( ISTA+JA-l.GT. I c  ND) G0T02 

RFADC 1 ' ( I STA+ JA- 1)* 1000,9 03 )TF 

I F ( T  E ( 1 ) . EO . PM  ARK ) GOTO  2 

WR I  TEC  2, 9  00 )TE 

WRITE (2, 9 00) SLAV 

RE  AD ( 5, 9 01) CO NT  1 N 

I  F  (  CO  N'T  l  N.  EQ.  BLANK)  GOTO  3 

I  STA= I STA+  JA 

GOTO  3 

FORMAT (  1  ' ,  15A4) 

FORM AT ( 10 Al) 

FORMAT ( ' 1* ) 

FORMAT C  15 A4) 

FORMAT C  2  I  4 ) 

END 

LINE-PRINTER  VERSION  OF  THE  PRINT  ROUTINE 

'INTEGER  TEC  15),  BLAVC  4) /4*»  1  / ,  PMARK/  '****'  / 

WRITEC 2,901) 

WRITEC 2,902) 

DO  1  JA  =  1,  40 
READ  (  1/  903,  END  =  4  )  TE 
| FCTEC 1) . EQ . PM ARK) GOTO  2 
WR  ITEC  2 ,900 )BLAV, 

WRITEC  2,9  01) 

WR  ITE (  2 , 9  02  ) 

GOTO  3 

WRITEC  2,901) 

STOP 

FORMAT ( ' 0 ' , 19 A4 ) 

FORMAT (  1  1  *  ) 

FORMAT ( // ) 

FORMAT ( 15A4) 

END 
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EDIT 
EDIT 
EDIT 
EO  I T 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
EDIT 
PRTL 
PRTL 
PRTL 
OF  PRTL 
/  PPTL 
PRTL 
PPTL 
PPTL 
PRTL 
PRTL 
PPTL 
PRTL 
PRTL 
PRTL 
PRTL 
PPTL 
PRTL 
PRTL 
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PRTL 
PPTL 
PRTL 
PRTL 
PRTL 
PRTL 
PRTL 
PPTL 
PRTL 
PPTL 
PRTL 
PRTL 
PRTL 
PPTL 
PRTL 
°PTL 
PRTL 
PPTL 
PPTL 
°RT  L 
PRTL 
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